blob: 4b3e3bed0759179a49f3d09833e89dea40df1475 [file] [log] [blame]
c { dg-do compile }
c { dg-options "-fdec-include" }
subroutine foo
implicit none
0include 'include_10.inc'
i = 1
end subroutine foo
subroutine bar
implicit none
i
;n
+c
c some comment
ll
C comment line
uu
DD
ee'include_10.inc'
i = 1
end subroutine bar
subroutine baz
implicit none
0include
+ 'include_10.inc'
i = 1
end subroutine baz
subroutine qux
implicit none
i n C lude 'inc
* another comment line
&lude_10.inc'
i = 1
end subroutine qux
subroutine quux
implicit none
0inc
1lud
2e '
3include_10.inc'
i = 1
end subroutine quux
program include_12
implicit none
include
! comment
+'include_10.inc'
end program
subroutine quuz
implicit none
integer include
include
+"include_10.inc"
i = 1
include
+ = 2
write (*,*) include
end subroutine quuz
subroutine corge
implicit none
include
+'include_10.inc'
i = 1
end subroutine corge