42 lines
1.1 KiB
Fortran
42 lines
1.1 KiB
Fortran
! 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
|