blob: e5b62b1f70d957576df8c7b367dab1cd1e9cdc27 [file] [log] [blame]
! { dg-do compile }
program pr89782
character(len=*),parameter :: VALUES(*)=[character(len=10) :: 'NaN','NAN','nan','Inf','INF','inf','Infinity']
character(len=*),parameter :: VALUE='NaN'
real(4) :: var
do i=1,size(VALUES)
read(VALUES(i),*) float ! { dg-error "character PARAMETER" }
write(VALUES(i),*)float ! { dg-error "character PARAMETER" }
enddo
read(var,*)float ! { dg-error "INTEGER expression or a CHARACTER" }
read(VALUE,*)float ! { dg-error "character PARAMETER" }
write(VALUE,*)float ! { dg-error "character PARAMETER" }
end program pr89782