blob: 1df220b7cf6437306cdfecc7e4351db5d4518f3d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
! { dg-do run }
! PR fortran/35830
!
module m
contains
subroutine one(a)
integer a(:)
print *, lbound(a), ubound(a), size(a)
if ((lbound(a,dim=1) /= 1) .or. (ubound(a,dim=1) /= 3)) &
call abort()
print *, a
if (any(a /= [1,2,3])) call abort()
end subroutine one
end module m
program test
use m
implicit none
call foo1(one)
call foo2(one)
contains
subroutine foo1(f)
! The following interface block is needed
! for NAG f95 as it wrongly does not like
! use-associated interfaces for PROCEDURE
! (It is not needed for gfortran)
interface
subroutine bar(a)
integer a(:)
end subroutine
end interface
procedure(bar) :: f
call f([1,2,3]) ! Was failing before
end subroutine foo1
subroutine foo2(f)
interface
subroutine f(a)
integer a(:)
end subroutine
end interface
call f([1,2,3]) ! Works
end subroutine foo2
end program test
|
