blob: 7261594abb19e688323f801097a6648bca1fc6b8 [file] [log] [blame]
! { 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