73 lines · plain
1! RUN: %flang_fc1 -E %s | FileCheck %s2! CHECK: program main3! CHECK: interface4! CHECK: subroutine sub(a, b)5! CHECK:!dir$ ignore_tkr a6! CHECK:!dir$ ignore_tkr b7! CHECK: real(4):: a, b8! CHECK: end subroutine9! CHECK: end interface10! CHECK: PRINT *, "Is ' '"11! CHECK: 123 PRINT *, "Is '123 '"12 13!@cuf subroutine atcuf;14 program main15 interface16 subroutine sub(a, b)17!dir$ ignore_tkr a18!dir$ ignore_tkr19!dir$+ b20 real(4):: a, b21 end subroutine22 end interface23!24! comment line25!@fp PRINT *, "This is a comment line"26!@f p PRINT *, "This is a comment line"27!$ PRINT *, "Is ' '"28!$123 PRINT *, "Is '123 '"29!$ABC PRINT *, "Is 'ABC '"30! $ PRINT *, "This is a comment line 6"31c $This is a comment line32!0$110This is a comment line33 34! $ This is a comment line35! $ 0This is a comment line36! &This is a comment line37! $ This is a comment line38! $ This is a comment line39C $ This is a comment line40c $ his is a comment line41* $ This is a comment line42 43! Test non-space/non-number char in columns 3-5, for initial lines.44! CHECK-NOT: "comment"45c$x PRINT *, "comment"46c$ + PRINT *, "comment"47c$ * PRINT *, "comment"48 49! Test non-space/non-number char in columns 3-5, for continuation lines.50! CHECK: "msg1"51! CHECK-NOT: "comment"52c$ x PRINT *, "comment"53c$1 & , "comment"54c$ x & , "comment"55c$ +& , "comment"56 57c$ PRINT *, "msg1"58c$1 & , "comment"59c$ x & , "comment"60c$ +& , "comment"61 62! Test valid chars in initial and continuation lines.63! CHECK: !$ 20 PRINT *, "msg2"64! CHECK: !$ &, "msg3"65c$ 20 PRINT *, "msg2"66c$ & , "msg3"67 68! CHECK: !$ PRINT *, "msg4",69! CHECK: !$ &"msg5"70c$ 0PRINT *, "msg4",71c$ + "msg5"72 end73