! { 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 |