! RUN: %flang_fc1 -fopenmp -E %s | FileCheck %s ! CHECK: program main ! CHECK: interface ! CHECK: subroutine sub(a, b) ! CHECK:!dir$ ignore_tkr a ! CHECK:!dir$ ignore_tkr b ! CHECK: real(4):: a, b ! CHECK: end subroutine ! CHECK: end interface ! CHECK: PRINT *, "Is ' '" ! CHECK: 123 PRINT *, "Is '123 '" !@cuf subroutine atcuf; program main interface subroutine sub(a, b) !dir$ ignore_tkr a !dir$ ignore_tkr !dir$+ b real(4):: a, b end subroutine end interface ! ! comment line !@fp PRINT *, "This is a comment line" !@f p PRINT *, "This is a comment line" !$ PRINT *, "Is ' '" !$123 PRINT *, "Is '123 '" !$ABC PRINT *, "Is 'ABC '" ! $ PRINT *, "This is a comment line 6" c $This is a comment line !0$110This is a comment line ! $ This is a comment line ! $ 0This is a comment line ! &This is a comment line ! $ This is a comment line ! $ This is a comment line C $ This is a comment line c $ his is a comment line * $ This is a comment line end