1! { dg-do run }
2! Test whether volatile statements and attributes are accepted
3! PR fortran/29601
4program 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
11end program volatile_test
12