annotate gcc/testsuite/gfortran.dg/block_9.f08 @ 132:d34655255c78

update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 !
kono
parents:
diff changeset
3 ! PR 46849: [OOP] MODULE PROCEDURE resolution does not work in BLOCK or SELECT TYPE
kono
parents:
diff changeset
4 !
kono
parents:
diff changeset
5 ! Contributed by Reinhold Bader <bader@lrz.de>
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 implicit none
kono
parents:
diff changeset
8
kono
parents:
diff changeset
9 block
kono
parents:
diff changeset
10 call init(fun)
kono
parents:
diff changeset
11 end block
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 contains
kono
parents:
diff changeset
14
kono
parents:
diff changeset
15 subroutine init(func)
kono
parents:
diff changeset
16 real, external :: func
kono
parents:
diff changeset
17 end subroutine
kono
parents:
diff changeset
18
kono
parents:
diff changeset
19 real function fun()
kono
parents:
diff changeset
20 fun = 1.1
kono
parents:
diff changeset
21 end function
kono
parents:
diff changeset
22
kono
parents:
diff changeset
23 end