gcc/testsuite/gfortran.dg/elemental_by_value_1.f90

   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 !
   9 elemental integer function foo(x)
  10   integer, value :: x
  11   foo = x + 1
  12 end 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
  22 end