blob: f95570940834fd787cbb2a7f2838c15452b8886f (
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
! { dg-do compile }
! PR fortran/102332 - ICE in select_type_set_tmp
! Contributed by G.Steinmetz
program p
type t
real :: a, b
end type
class(t), allocatable :: x ! Valid
select type (y => x)
type is (t)
y%a = 0
end select
end
subroutine s0 (x)
type t
real :: a, b
end type
class(t) :: x ! Valid
select type (y => x)
type is (t)
y%a = 0
end select
end
subroutine s1
type t
real :: a, b
end type
class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" }
select type (y => x)
type is (t)
y%a = 0
end select
end
subroutine s3
type t
real :: a, b
end type
class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" }
select type (y => x)
class is (t)
y%a = 0
end select
end
subroutine s2
type t
real :: a, b
end type
class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" }
select type (y => x)
type default ! { dg-error "Expected" }
y%a = 0
end select
end
subroutine s4
type t
real :: a, b
end type
class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" }
select type (y => x)
class default
y%a = 0
end select
end
|
