view gcc/testsuite/gfortran.dg/include_13.f90 @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
line wrap: on
line source

! { dg-do compile }
! { dg-options "-fdec" }
subroutine foo
  implicit none
  incl& ! comment1
&u&
       &de           &     ! comment2
'include&
  &_10.inc'
  i = 1
end subroutine foo
subroutine bar
  implicit none
include &

! comment3

"include_10.inc"
  i = 1
end subroutine bar
subroutine baz
  implicit none
                                  include&
&'include_10.&
&inc'
  i = 1
end subroutine baz
subroutine qux
  implicit none
  include '&
include_10.inc'
end subroutine qux
subroutine quux
  implicit none
  include &
  &'include_10.inc'
  i = 1
end subroutine quux
subroutine quuz
  implicit none
  include &
  &"include_10.inc"
  i = 1
end subroutine quuz