! { dg-do compile } | |
! { dg-shouldfail "VOLATILE not part of F95" } | |
! { dg-options "-std=f95" } | |
! Test whether volatile statements and attributes are rejected | |
! with -std=f95. | |
! PR fortran/29601 | |
program volatile_test | |
implicit none | |
real, volatile :: foo ! { dg-error "VOLATILE attribute" } | |
real :: l | |
volatile :: l ! { dg-error "VOLATILE statement" } | |
l = 4.0 | |
foo = 3.0 ! { dg-error "no IMPLICIT type" } | |
end program volatile_test |