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/] [volatile.f90] - Blame information for rev 399

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


! { dg-do run }
! Test whether volatile statements and attributes are accepted
! PR fortran/29601
program volatile_test
  implicit none
  real :: l,m
  real, volatile :: r = 3.
  volatile :: l
  l = 4.0
  m = 3.0
end program volatile_test

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! Test whether volatile statements and attributes are accepted`
3			`! PR fortran/29601`
4			`program volatile_test`
5			`implicit none`
6			`real :: l,m`
7			`real, volatile :: r = 3.`
8			`volatile :: l`
9			`l = 4.0`
10			`m = 3.0`
11			`end program volatile_test`

Browse

Tools

Subversion Repositories openrisc_me

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