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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! Fixes PR38171 a regression caused by the fix for PR37706.
!
! Contributed by Scot Breitenfeld 
!
MODULE H5GLOBAL
  IMPLICIT NONE
  INTEGER :: H5P_flags
  INTEGER :: H5P_DEFAULT_F
  EQUIVALENCE(H5P_flags, H5P_DEFAULT_F)
END MODULE H5GLOBAL
MODULE HDF5
  USE H5GLOBAL
END MODULE HDF5
PROGRAM fortranlibtest
  USE HDF5
  IMPLICIT NONE
  INTEGER :: ii
  ii = H5P_DEFAULT_F
END PROGRAM fortranlibtest
! { dg-final { cleanup-modules "h5global hdf5" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! Fixes PR38171 a regression caused by the fix for PR37706.`
4			`!`
5			`! Contributed by Scot Breitenfeld`
6			`!`
7			`MODULE H5GLOBAL`
8			`IMPLICIT NONE`
9			`INTEGER :: H5P_flags`
10			`INTEGER :: H5P_DEFAULT_F`
11			`EQUIVALENCE(H5P_flags, H5P_DEFAULT_F)`
12			`END MODULE H5GLOBAL`
13			`MODULE HDF5`
14			`USE H5GLOBAL`
15			`END MODULE HDF5`
16			`PROGRAM fortranlibtest`
17			`USE HDF5`
18			`IMPLICIT NONE`
19			`INTEGER :: ii`
20			`ii = H5P_DEFAULT_F`
21			`END PROGRAM fortranlibtest`
22			`! { dg-final { cleanup-modules "h5global hdf5" } }`

Browse

Tools

Subversion Repositories openrisc

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