gcc/testsuite/gfortran.dg/old_style_init.f90

   1 !{ dg-do compile }
   2 ! this routine tests all the execution paths
   3 ! through the routine known as match_old_style_init()
   4 ! it does not make sense in any other context !!
   5       subroutine sub1(Z) !{ dg-error "DATA attribute conflicts" }
   6       integer Z/10/!{ dg-error "DATA"}
   7       end
   8       pure function pi(k)
   9       integer ,intent(in) :: k
  10       integer i / 10 / !{ dg-error "Initialization at " }
  11       pi=3.0
  12       end function pi
  13       subroutine sub2
  14       integer I /  /!{ dg-error "Syntax error in DATA" }
  15       end