blob: 9ca20ab278494ed8d50f5b7d2dc09b1abdfe8367 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
! { dg-do run }
!
! Tests runtime check of the required type in dtio formatted read.
!
module usertypes
type udt
integer :: myarray(15)
end type udt
type, extends(udt) :: more
integer :: itest = -25
end type
end module usertypes
program test1
use usertypes
type (udt) :: udt1
type (more) :: more1
class (more), allocatable :: somemore
integer :: thesize, i, ios
character(100) :: errormsg
read (10, fmt='(dt)', advance='no', size=thesize, iostat=ios, &
& iomsg=errormsg) i, udt1
if (ios.ne.5006) STOP 1
if (errormsg(27:47).ne."intrinsic type passed") STOP 2
end program test1
|
