blob: f4e26bc8af3e07cf2bbf7bd62ea59365e563d6a6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { dg-do compile }
! PR78659 Spurious "requires DTIO" reported against namelist statement
MODULE ma
IMPLICIT NONE
TYPE :: ta
INTEGER, allocatable :: array(:)
END TYPE ta
END MODULE ma
PROGRAM p
USE ma
class(ta), allocatable :: x
NAMELIST /nml/ x
WRITE (*, nml)! { dg-error "is polymorphic and requires a defined input/output procedure" }
READ (*, nml) ! { dg-error "is polymorphic and requires a defined input/output procedure" }
END PROGRAM p
|
