blob: 7261594abb19e688323f801097a6648bca1fc6b8 (
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
|
! { dg-do compile }
! PR fortran/64107
! Code contribute by fxcoudert at gcc dot gnu dot org
! Appears to be fixed by patch for PR fortran/83633
module m1
contains
pure integer function foo()
foo = 2
end function
end module
subroutine test
use m1
integer :: x1(foo())
end subroutine
module m
use m1
integer :: x2(foo()) ! { dg-error "array with nonconstant bounds" }
contains
subroutine sub
integer :: x3(foo())
end subroutine
end module
program p
use m1
integer :: x4(foo()) ! { dg-error "array with nonconstant bounds" }
end program
|
