blob: 715eb5b97e3779b0ee699bc1f69b2f9b91f1fb56 [file] [log] [blame]
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