1 files changed, 36 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/elemental_dependency_2.f90 b/gcc/testsuite/gfortran.dg/elemental_dependency_2.f90
new file mode 100644
index 000000000..2282e8821
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/elemental_dependency_2.f90
@@ -0,0 +1,36 @@
+! { dg-do compile }
+!
+! PR fortran/38487
+! Spurious warning on pointers as elemental subroutine actual arguments
+!
+! Contributed by Harald Anlauf <anlauf@gmx.de>
+
+module gfcbug82
+  implicit none
+  type t
+    real, pointer :: q(:) =>NULL()
+    real, pointer :: r(:) =>NULL()
+  end type t
+  type (t), save :: x, y
+  real, dimension(:), pointer, save :: a => NULL(), b => NULL()
+  real, save :: c(5), d
+contains
+  elemental subroutine add (q, r)
+    real, intent (inout) :: q
+    real, intent (in)    :: r
+    q = q + r
+  end subroutine add
+
+  subroutine foo ()
+      call add (y% q, x% r)
+      call add (y% q, b   )
+      call add (a   , x% r)
+      call add (a   , b   )
+      call add (y% q, d   )
+      call add (a   , d   )
+      call add (c   , x% r)
+      call add (c   , b   )
+  end subroutine foo
+end module gfcbug82
+
+! { dg-final { cleanup-modules "gfcbug82" } }