gcc/testsuite/gfortran.dg/pr95446.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-pedantic-errors" }
   3 !
   4 ! Contributed by Martin Diehl  <m.diehl@mpie.de>
   5
   6 program elemental_optional
   7   implicit none
   8   integer :: m(5), r(5)
   9
  10   m = 1
  11
  12   r = outer()
  13   r = outer(m)
  14
  15   contains
  16
  17   function outer(o) result(l)
  18     integer, intent(in), optional :: o(:)
  19     integer :: u(5), l(5)
  20
  21     l = inner(o,u)
  22
  23   end function outer
  24
  25   elemental function inner(a,b) result(x)
  26     integer, intent(in), optional :: a
  27     integer, intent(in) :: b
  28     integer :: x
  29
  30     if(present(a)) then
  31       x = a*b
  32     else
  33       x = b
  34     endif
  35   end function inner
  36
  37 end program elemental_optional
  38