ChangeLogs fixed, again.

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / actual_array_interface_1.f90

diff --git a/gcc/testsuite/gfortran.dg/actual_array_interface_1.f90 b/gcc/testsuite/gfortran.dg/actual_array_interface_1.f90
index e69de29..bc020a3 100644 (file)
--- a/gcc/testsuite/gfortran.dg/actual_array_interface_1.f90
+++ b/gcc/testsuite/gfortran.dg/actual_array_interface_1.f90
@@ -0,0 +1,27 @@
+! { dg-do compile }
+! Tests the fix for PR29490, in which the creation of the
+! interface expression for the first argument of the call to
+! 'john' would cause an ICE because GFC_TYPE_ARRAY_LBOUND
+! was NULL.
+!
+! Contributed by Philip Mason <pmason@ricardo.com>
+!
+  !---------------------------------
+  program fred
+  !---------------------------------
+  real              :: dezz(1:10)
+  real, allocatable :: jack(:)
+  !
+  allocate(jack(10)); jack = 9.
+  dezz = john(jack,1)
+  print*,'dezz = ',dezz
+
+  contains
+    !---------------------------------
+    function john(t,il)
+    !---------------------------------
+    real  :: t(il:)
+    real  :: john(1:10)
+    john = 10.
+    end function john
+  end