repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
PR inline-asm/84742
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
associate_8.f03
blob
f6c286f30fd2db89e29cef9784aadb78c7a73b99
1
! { dg-do run }
2
! { dg-options "-std=f2003 " }
3
4
! PR fortran/38936
5
! Check associate to polymorphic entities.
6
7
! Contributed by Tobias Burnus, burnus@gcc.gnu.org.
8
9
type t
10
end type t
11
12
type, extends(t) :: t2
13
end type t2
14
15
class(t), allocatable :: a, b
16
allocate( t :: a)
17
allocate( t2 :: b)
18
19
associate ( one => a, two => b)
20
select type(two)
21
type is (t)
22
STOP 1
23
type is (t2)
24
print *, 'OK', two
25
class default
26
STOP 2
27
end select
28
select type(one)
29
type is (t2)
30
STOP 3
31
type is (t)
32
print *, 'OK', one
33
class default
34
STOP 4
35
end select
36
end associate
37
end