c { dg-do compile } | |
c { dg-options "-fopenmp -fdec" } | |
subroutine foo | |
implicit none | |
c$ 0include 'include_1.inc' | |
i = 1 | |
end subroutine foo | |
subroutine bar | |
implicit none | |
i | |
C$ ;n | |
+c | |
c some comment | |
*$ ll | |
C comment line | |
uu | |
DD | |
ee'include_1.inc' | |
i = 1 | |
end subroutine bar | |
subroutine baz | |
implicit none | |
0include | |
+ 'include_1.inc' | |
i = 1 | |
end subroutine baz | |
subroutine qux | |
implicit none | |
!$ i n C lude 'inc | |
* another comment line | |
&lude_1.inc' | |
i = 1 | |
end subroutine qux | |
subroutine quux | |
implicit none | |
C$ 0inc | |
*$ 1lud | |
c$ 2e ' | |
!$ 3include_1.inc' | |
i = 1 | |
end subroutine quux | |
program include_12 | |
implicit none | |
include | |
! comment | |
c$ +'include_1.inc' | |
end program |