/Test/invalid_name.f90
FORTRAN Modern | 12 lines | 11 code | 0 blank | 1 comment | 0 complexity | 81c0b1ece04c313f0cfaff65e8f46356 MD5 | raw file
Possible License(s): GPL-2.0
1! Test of parsing type with invalid name 2 Module TR_DetectionRecording 3 Implicit None 4 Save 5 Integer :: DR_Lun 6 Character*1024 DR_Filename 7 Type Detection_Record 8 Integer(2) :: Activity 9 Integer(2) :: Type ! "Type" not valid entity name 10 Integer(2) :: Face 11 End Type Detection_Record 12 End Module TR_DetectionRecording