[Patch, committed, Fortran] PR68020 – Fix implied-shape handling for rank > 2

[Jakub Jelinek]

On Thu, Jan 02, 2020 at 04:43:29PM +0100, Tobias Burnus wrote:
> Committed as Rev. 279835 after building an regtesting the attached patch.

+UNRESOLVED: gfortran.dg/implied_shape_5.f90   -O0  compilation failed to produce executable
+UNRESOLVED: gfortran.dg/implied_shape_5.f90   -O1  compilation failed to produce executable
+UNRESOLVED: gfortran.dg/implied_shape_5.f90   -O2  compilation failed to produce executable
+UNRESOLVED: gfortran.dg/implied_shape_5.f90   -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions  compilation failed to produce executable
+UNRESOLVED: gfortran.dg/implied_shape_5.f90   -O3 -g  compilation failed to produce executable
+UNRESOLVED: gfortran.dg/implied_shape_5.f90   -Os  compilation failed to produce executable

Fixed thusly, tested on x86_64-linux, committed to trunk as obvious.

2020-01-03  Jakub Jelinek  <jakub@redhat.com>

	PR fortran/68020
	* gfortran.dg/impled_shape_5.f90: Use dg-do compile rather than dg-do
	run.

--- gcc/testsuite/gfortran.dg/implied_shape_5.f90	(revision 279848)
+++ gcc/testsuite/gfortran.dg/implied_shape_5.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do compile }
 !
 ! PR fortran/68020
 !

	Jakub