blob: 10b2ce8867109f3120bbeba25c4a2cf7e5d6c05a [file] [log] [blame]
! { dg-do run }
!
! PR fortran/59026
!
! Contributed by F-X Coudert <fxcoudert@gcc.gnu.org>
!
! Failed to dereference the argument in scalarized loop.
!
elemental integer function foo(x)
integer, value :: x
foo = x + 1
end function
interface
elemental integer function foo(x)
integer, value :: x
end function
end interface
if (foo(42) .ne. 43) STOP 1
if (any (foo([0,1]) .ne. [1,2])) STOP 2
end