1! RUN: %flang_fc1 -fopenmp -E %s | FileCheck %s 2! CHECK: program main 3! CHECK: interface 4! CHECK: subroutine sub(a, b) 5! CHECK:!dir$ ignore_tkr a 6! CHECK:!dir$ ignore_tkr b 7! CHECK: real(4):: a, b 8! CHECK: end subroutine 9! CHECK: end interface 10! CHECK: PRINT *, "Is ' '" 11! CHECK: 123 PRINT *, "Is '123 '" 12 13!@cuf subroutine atcuf; 14 program main 15 interface 16 subroutine sub(a, b) 17!dir$ ignore_tkr a 18!dir$ ignore_tkr 19!dir$+ b 20 real(4):: a, b 21 end subroutine 22 end interface 23! 24! comment line 25!@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 line 32!0$110This is a comment line 33 34! $ This is a comment line 35! $ 0This is a comment line 36! &This is a comment line 37! $ This is a comment line 38! $ This is a comment line 39C $ This is a comment line 40c $ his is a comment line 41* $ This is a comment line 42 end 43