gcc/testsuite/gfortran.dg/io_constraints_14.f90

   1 ! { dg-do compile }
   2 program pr89782
   3   character(len=*),parameter :: VALUES(*)=[character(len=10) :: 'NaN','NAN','nan','Inf','INF','inf','Infinity']
   4   character(len=*),parameter :: VALUE='NaN'
   5   real(4) :: var
   6   do i=1,size(VALUES)
   7     read(VALUES(i),*) float ! { dg-error "character PARAMETER" }
   8     write(VALUES(i),*)float ! { dg-error "character PARAMETER" }
   9   enddo
  10   read(var,*)float    ! { dg-error "INTEGER expression or a CHARACTER" }
  11   read(VALUE,*)float  ! { dg-error "character PARAMETER" }
  12   write(VALUE,*)float ! { dg-error "character PARAMETER" }
  13 end program pr89782