URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [module_md5_1.f90] - Blame information for rev 384

Details | Compare with Previous | View Log


! Check that we can write a module file, that it has a correct MD5 sum,
! and that we can read it back.
!
! { dg-do compile }
module foo
  integer(kind=4), parameter :: pi = 3_4
end module foo
 
program test
  use foo
  print *, pi
end program test
! { dg-final { scan-module "foo" "MD5:5632bcd379cf023bf7e663e91d52fa12" } }
! { dg-final { cleanup-modules "foo" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! Check that we can write a module file, that it has a correct MD5 sum,`
2			`! and that we can read it back.`
3			`!`
4			`! { dg-do compile }`
5			`module foo`
6			`integer(kind=4), parameter :: pi = 3_4`
7			`end module foo`
8
9			`program test`
10			`use foo`
11			`print *, pi`
12			`end program test`
13			`! { dg-final { scan-module "foo" "MD5:5632bcd379cf023bf7e663e91d52fa12" } }`
14			`! { dg-final { cleanup-modules "foo" } }`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [module_md5_1.f90] - Blame information for rev 384