1! { dg-do run }
2!
3! PR fortran/59026
4!
5! Contributed by F-X Coudert  <fxcoudert@gcc.gnu.org>
6!
7! Failed to dereference the argument in scalarized loop.
8!
9elemental integer function foo(x)
10  integer, value :: x
11  foo = x + 1
12end function
13
14  interface
15    elemental integer function foo(x)
16    integer, value :: x
17    end function
18  end interface
19
20  if (foo(42) .ne. 43) STOP 1
21  if (any (foo([0,1]) .ne. [1,2])) STOP 2
22end
23