URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [volatile9.f90] - Rev 399
Go to most recent revision | Compare with Previous | Blame | View Log
! Check for valid VOLATILE uses
!
! Contributed by Steven Correll.
!
! PR fortran/30520
! { dg-do compile }
function f() result(fr)
integer, volatile :: fr
fr = 5
end function f
module mod13
implicit none
integer :: v13
end module mod13
module mod13a
use mod13
implicit none
volatile :: v13
real :: v14
contains
subroutine s13()
volatile :: v13
volatile :: v14
end subroutine s13
end module mod13a
module mod13b
use mod13a
implicit none
volatile :: v13
end module mod13b
subroutine s14()
use mod13a
implicit none
volatile :: v13
end subroutine s14
! { dg-final { cleanup-modules "mod13 mod13a mod13b" } }
Go to most recent revision | Compare with Previous | Blame | View Log