blob: cb16ecfa2b0166da28bfb7a19274b167b05156b1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { dg-do compile }
!
! PR 50659: [4.5/4.6/4.7 Regression] [F03] ICE on invalid with procedure interface
!
! Contributed by Andrew Benson <abenson@caltech.edu>
module m1
integer :: arrSize
end module
module m2
contains
function Proc (arg)
use m1
double precision, dimension(arrSize) :: proc
double precision :: arg
end function
end
use m2
implicit none
procedure(Proc) :: Proc_Get
end
|