comparison gcc/testsuite/gfortran.dg/block_9.f08 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 !
3 ! PR 46849: [OOP] MODULE PROCEDURE resolution does not work in BLOCK or SELECT TYPE
4 !
5 ! Contributed by Reinhold Bader <bader@lrz.de>
6
7 implicit none
8
9 block
10 call init(fun)
11 end block
12
13 contains
14
15 subroutine init(func)
16 real, external :: func
17 end subroutine
18
19 real function fun()
20 fun = 1.1
21 end function
22
23 end