re PR fortran/36167 (ICE in gfc_conv_descriptor_dimension, at fortran/trans-array.c:242)

2008-09-08  Daniel Kraft  <d@domob.eu>

        PR fortran/36167
        * gfortran.dg/array_function_3.f90: New test.
        * gfortran.dg/save_3.f90: Added cleanup-modules directive.
        * gfortran.dg/string_compare_1.f90: Ditto.

From-SVN: r140107

gcc/testsuite/ChangeLog

 2008-09-08  Daniel Kraft  <d@domob.eu>
 
+	PR fortran/36167
+	* gfortran.dg/array_function_3.f90: New test.
+	* gfortran.dg/save_3.f90: Added cleanup-modules directive.
+	* gfortran.dg/string_compare_1.f90: Ditto.
+
+2008-09-08  Daniel Kraft  <d@domob.eu>
+
 	PR fortran/37199
 	* gfortran.dg/array_function_2.f90: New test.
 

gcc/testsuite/gfortran.dg/array_function_3.f90

+! { dg-do compile }
+
+! PR fortran/36167
+! This used to cause an ICE because of a missing array spec after interface
+! mapping.
+
+! Contributed by Frank Muldoon <fmuldoo@me.lsu.edu>
+
+module communication_tools
+
+contains   
+!*******************************************************************************
+function overlap_1(u,lbound_u,ubound_u)
+!*******************************************************************************
+integer, intent(in), dimension(:) :: lbound_u,ubound_u
+real, intent(in), dimension(lbound_u(1):ubound_u(1),lbound_u(2):ubound_u(2),&
+                            lbound_u(3):ubound_u(3)) :: u
+
+real, dimension(&
+lbound(u,1):ubound(u,1),&
+lbound(u,2):ubound(u,2),&
+lbound(u,3):ubound(u,3)) :: overlap_1
+
+return
+end function overlap_1
+
+end module communication_tools
+
+!*******************************************************************************
+subroutine write_out_particles
+!*******************************************************************************
+
+use communication_tools
+real, dimension(1:5, 2:4, 3:10) :: vorticityMag
+real, allocatable, dimension(:,:,:) :: temp3d
+
+allocate(temp3d( &
+lbound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),1):&
+ubound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),1),&
+lbound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),2):&
+ubound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),2),&
+lbound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),3):&
+ubound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),3)))
+
+return 
+end subroutine write_out_particles
+
+! { dg-final { cleanup-modules "communication_tools" } }

gcc/testsuite/gfortran.dg/save_3.f90

@@ -14,3 +14,5 @@ pure function tell_i() result (answer)
   answer=i
 end function tell_i
 end module g95bug
+
+! { dg-final { cleanup-modules "g95bug" } }

gcc/testsuite/gfortran.dg/string_compare_2.f90

@@ -35,3 +35,5 @@ program pack_bug
       end if
     end do
 end
+
+! { dg-final { cleanup-modules "xparams" } }