gcc/testsuite/gfortran.dg/elemental_dependency_2.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/38487
   4 ! Spurious warning on pointers as elemental subroutine actual arguments
   5 !
   6 ! Contributed by Harald Anlauf <anlauf@gmx.de>
   7
   8 module gfcbug82
   9   implicit none
  10   type t
  11     real, pointer :: q(:) =>NULL()
  12     real, pointer :: r(:) =>NULL()
  13   end type t
  14   type (t), save :: x, y
  15   real, dimension(:), pointer, save :: a => NULL(), b => NULL()
  16   real, save :: c(5), d
  17 contains
  18   elemental subroutine add (q, r)
  19     real, intent (inout) :: q
  20     real, intent (in)    :: r
  21     q = q + r
  22   end subroutine add
  23
  24   subroutine foo ()
  25       call add (y% q, x% r)
  26       call add (y% q, b   )
  27       call add (a   , x% r)
  28       call add (a   , b   )
  29       call add (y% q, d   )
  30       call add (a   , d   )
  31       call add (c   , x% r)
  32       call add (c   , b   )
  33   end subroutine foo
  34 end module gfcbug82
  35
  36 ! { dg-final { cleanup-modules "gfcbug82" } }