blob: dcbbbae17c07da0b6858279fdcbe44c16db2388f (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
!
! PR fortran/87923
!
program p
read (1, blank=char(1000,4)) ! { dg-error "must be a character string of default kind" }
read (1, delim=char(1000,4)) ! { dg-error "must be a character string of default kind" }
read (1, pad=char(1000,4)) ! { dg-error "must be a character string of default kind" }
read (1, round=char(1000,4)) ! { dg-error "must be a character string of default kind" }
read (1, sign=char(1000,4)) ! { dg-error "must be a character string of default kind" }
end
|