URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [include_5.f90] - Blame information for rev 307

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile }
! { dg-options "-cpp" }
!
! PR fortran/37821
!
! Ensure that for #include "..." and for include the
! current directory/directory of the source file is
! included.
 
subroutine one()
  include "include_4.inc"
  integer(i4) :: i
end subroutine one
 
subroutine two()
# include "include_4.inc"
  integer(i4) :: i
end subroutine two

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-cpp" }`
3			`!`
4			`! PR fortran/37821`
5			`!`
6			`! Ensure that for #include "..." and for include the`
7			`! current directory/directory of the source file is`
8			`! included.`
9
10			`subroutine one()`
11			`include "include_4.inc"`
12			`integer(i4) :: i`
13			`end subroutine one`
14
15			`subroutine two()`
16			`# include "include_4.inc"`
17			`integer(i4) :: i`
18			`end subroutine two`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [include_5.f90] - Blame information for rev 307