gcc/testsuite/gfortran.dg/namelist_print_2.f

   1 ! Test Non standard PRINT namelist - PR21432 is
   2 ! not accepted by -std=f95
   3 !
   4 ! Contributor Paul Thomas  <pault@gcc.gnu.org>
   5 !
   6 ! { dg-do compile }
   7 ! { dg-options "-std=f95" }
   8 !
   9       real  x
  10       namelist /mynml/ x
  11       x = 1
  12       print mynml  ! { dg-error "PRINT namelist.*extension" "" }
  13       end