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