| | Compiling with Intel(R) Visual Fortran Compiler XE 14.0.4.237 [IA-32]...
ifort /nologo /debug:full /Od /warn:interfaces /module:"Debug\\" /object:"Debug\\" /Fd"Debug\vc120.pdb" /traceback /check:bounds /check:stack /libs:dll /threads /dbglibs /c /Qvc12 /Qlocation,link,"C:\Program Files (x86)\VC\\bin" "C:\IVF-Fortan\StetFont\Source1.f90"
C:\IVF-Fortan\StetFont\Source1.f90(48): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: DATA
BLOCK
------------^
C:\IVF-Fortan\StetFont\Source1.f90(59): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: DATA
END BLOCK
----------------^
C:\IVF-Fortan\StetFont\Source1.f90(48): error #6236: A specification statement cannot appear in the executable section.
BLOCK
------^
C:\IVF-Fortan\StetFont\Source1.f90(49): error #6236: A specification statement cannot appear in the executable section.
type(T_LOGFONT) logfont
---------^
C:\IVF-Fortan\StetFont\Source1.f90(50): error #6236: A specification statement cannot appear in the executable section.
integer result4
---------^
C:\IVF-Fortan\StetFont\Source1.f90(51): error #6236: A specification statement cannot appear in the executable section.
integer(HANDLE) DC
---------^
C:\IVF-Fortan\StetFont\Source1.f90(52): error #6236: A specification statement cannot appear in the executable section.
integer(HANDLE) hGDIobj
---------^
C:\IVF-Fortan\StetFont\Source1.f90(53): error #6236: A specification statement cannot appear in the executable section.
character(32) TextFace
---------^
C:\IVF-Fortan\StetFont\Source1.f90(54): error #6404: This name does not have a type, and must have an explicit type. [DC]
DC = GetDC(NULL)
---------^
C:\IVF-Fortan\StetFont\Source1.f90(55): error #6404: This name does not have a type, and must have an explicit type. [HGDIOBJ]
hGDIobj = SelectObject(DC,hMyFont(i))
---------^
C:\IVF-Fortan\StetFont\Source1.f90(56): error #6404: This name does not have a type, and must have an explicit type. [RESULT4]
result4 = GetTextFace(DC,len(TextFace),TextFace)
---------^
C:\IVF-Fortan\StetFont\Source1.f90(56): error #6404: This name does not have a type, and must have an explicit type. [TEXTFACE]
result4 = GetTextFace(DC,len(TextFace),TextFace)
--------------------------------------^
C:\IVF-Fortan\StetFont\Source1.f90(56): error #6362: The data types of the argument(s) are invalid. [LEN]
result4 = GetTextFace(DC,len(TextFace),TextFace)
--------------------------------------^
C:\IVF-Fortan\StetFont\Source1.f90(58): error #6514: A substring must be of type CHARACTER. [TEXTFACE]
write(*,*) TextFace(:index(TextFace,achar(0))-1)
--------------------^
C:\IVF-Fortan\StetFont\Source1.f90(58): warning #7319: This argument's data type is incompatible with this intrinsic procedure; procedure assumed EXTERNAL. [INDEX]
write(*,*) TextFace(:index(TextFace,achar(0))-1)
------------------------------------^
C:\IVF-Fortan\StetFont\Source1.f90(58): error #6404: This name does not have a type, and must have an explicit type. [INDEX]
write(*,*) TextFace(:index(TextFace,achar(0))-1)
------------------------------^
C:\IVF-Fortan\StetFont\Source1.f90(59): error #6681: This is either an invalid statement, a declaration statement that is ordered incorrectly, or a null procedure statement.
END BLOCK
------^
compilation aborted for C:\IVF-Fortan\StetFont\Source1.f90 (code 1)
Console1 - 17 error(s), 1 warning(s)
|