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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_62.f90] - Blame information for rev 724

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


! { dg-do compile }
!
! PR fortran/45066
!
! Contributed by Michael Richmond.
!
! Was failing due to a -fwhole-file bug.
!
 
MODULE GA_commons
  INTEGER :: nichflg(2)
END MODULE GA_commons
 
PROGRAM gafortran
  USE GA_commons
  NAMELIST /ga/ nichflg
  READ (23, nml=ga)
END PROGRAM gafortran
 
! { dg-final { cleanup-modules "ga_commons" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/45066`
4			`!`
5			`! Contributed by Michael Richmond.`
6			`!`
7			`! Was failing due to a -fwhole-file bug.`
8			`!`
9
10			`MODULE GA_commons`
11			`INTEGER :: nichflg(2)`
12			`END MODULE GA_commons`
13
14			`PROGRAM gafortran`
15			`USE GA_commons`
16			`NAMELIST /ga/ nichflg`
17			`READ (23, nml=ga)`
18			`END PROGRAM gafortran`
19
20			`! { dg-final { cleanup-modules "ga_commons" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_62.f90] - Blame information for rev 724