2 ! { dg-shouldfail "VOLATILE not part of F95" }
3 ! { dg-options "-std=f95" }
4 ! Test whether volatile statements and attributes are rejected
9 real, volatile :: foo
! { dg-error "VOLATILE attribute" }
11 volatile :: l
! { dg-error "VOLATILE statement" }
13 foo
= 3.0 ! { dg-error "no IMPLICIT type" }
14 end program volatile_test