re PR fortran/77506 (F2008 Standard does not allow CHARACTER(LEN=*) in array constructor)

2016-09-09  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77506
	* array.c (gfc_match_array_constructor): CHARACTER(len=*) cannot
	appear in an array constructor.

2016-09-09  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77506
	* gfortran.dg/pr77506.f90: New test.

From-SVN: r240052

gcc/fortran/ChangeLog

 2016-09-09  Steven G. Kargl  <kargl@gcc.gnu.org>
 
+	PR fortran/77506
+	* array.c (gfc_match_array_constructor): CHARACTER(len=*) cannot
+	appear in an array constructor.
+
+2016-09-09  Steven G. Kargl  <kargl@gcc.gnu.org>
+
 	PR fortran/77507
 	* intrinsic.c (add_functions):  Use correct keyword.
 

gcc/fortran/array.c

@@ -1142,6 +1142,15 @@ gfc_match_array_constructor (gfc_expr **result)
 	      gfc_restore_last_undo_checkpoint ();
 	      goto cleanup;
 	    }
+
+	  if (ts.type == BT_CHARACTER
+	      && ts.u.cl && !ts.u.cl->length && !ts.u.cl->length_from_typespec)
+	    {
+	      gfc_error ("Type-spec at %L cannot contain an asterisk for a "
+			 "type parameter", &where);
+	      gfc_restore_last_undo_checkpoint ();
+	      goto cleanup;
+	    }
 	}
     }
   else if (m == MATCH_ERROR)

gcc/testsuite/ChangeLog

 2016-09-09  Steven G. Kargl  <kargl@gcc.gnu.org>
 
+	PR fortran/77506
+	* gfortran.dg/pr77506.f90: New test.
+
+2016-09-09  Steven G. Kargl  <kargl@gcc.gnu.org>
+
 	PR fortran/77507
 	* gfortran.dg/pr77507.f90: New test.
 

gcc/testsuite/gfortran.dg/pr77506.f90

+! { dg-do compile }
+program foo
+   print *, [character(len=*)::'ab','cd'] ! { dg-error "contain an asterisk" }
+end program foo