old-autovect-branch/gcc/testsuite/gfortran.dg/runtime_warning_1.f90

   1 ! Test runtime warnings using non-standard $ editing - PR20006.
   2 !
   3 ! Contributor Francois-Xavier Coudert  <coudert@clipper.ens.fr>
   4 !
   5 ! { dg-options "-pedantic" }
   6 ! { dg-do run }
   7 !
   8      character*5 c
   9      open (42,status='scratch')
  10      write (42,'(A,$)') 'abc' ! { dg-warning ".*descriptor" "" }
  11      write (42,'(A)') 'de'
  12      rewind (42)
  13      read (42,'(A)') c
  14      close (42)
  15      if (c /= 'abcde') call abort ()
  16      end
  17 ! { dg-warning ".*descriptor" "" 10}