Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/proc_decl_27.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 50659: [4.5/4.6/4.7 Regression] [F03] ICE on invalid with procedure interface
4 !
5 ! Contributed by Andrew Benson <abenson@caltech.edu>
6
7 module m1
8 integer :: arrSize
9 end module
10
11 module m2
12 contains
13 function Proc (arg)
14 use m1
15 double precision, dimension(arrSize) :: proc
16 double precision :: arg
17 end function
18 end
19
20 use m2
21 implicit none
22 procedure(Proc) :: Proc_Get
23 end