gcc-4_9/gcc/testsuite/gfortran.dg/write_check.f90

   1 ! { dg-do run }
   2 ! { dg-shouldfail "Compile-time specifier checking" }
   3 ! Check keyword checking for specifiers
   4 ! PR fortran/29452
   5 program test
   6   implicit none
   7   character(len=5) :: str
   8   str = 'yes'
   9   write(*,'(a)',advance=str) ''
  10   str = 'no'
  11   write(*,'(a)',advance=str) ''
  12   str = 'NOT'
  13   write(*,'(a)',advance=str) ''
  14 end program test
  15 ! { dg-output "At line 13 of file.*" }
  16 ! { dg-output "Bad ADVANCE parameter in data transfer statement" }