gcc/testsuite/gfortran.dg/volatile.f90

   1 ! { 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