brintos

brintos / llvm-project-archived public Read only

0
0
Text · 1.4 KiB · e0225e6 Raw
30 lines · plain
1! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s2! CHECK: end.f:3:7: error: Program unit END statement may not be continued in fixed form source3      e4     + nd5! CHECK: end.f:6:7: error: Program unit END statement may not be continued in fixed form source6      end prog7     +        ram8! CHECK: end.f:9:7: error: Program unit END statement may not be continued in fixed form source9      end10     +       program11! CHECK: end.f:12:7: error: Program unit END statement may not be continued in fixed form source12      end13     +       program14     1                main15! CHECK: end.f:16:7: error: Program unit END statement may not be continued in fixed form source16      end program17     1            main18! CHECK: end.f:19:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source19      end20     +    = end + 121! CHECK: end.f:22:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source22      end module23     +    = end module + 124! CHECK-NOT: end.f:25:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source25      end =26     +      end + 127! CHECK-NOT: end.f:28:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source28      end block data (29     +      1) = 66630