re PR fortran/85702 ([openacc] ICE in gfc_format_decoder, at fortran/error.c:943)

PR fortran/85702

	gcc/fortran/
	* openmp.c (gfc_match_oacc_wait): Use %C to report error location.

	gcc/testsuite/
	* gfortran.dg/goacc/pr85702.f90: New test.

From-SVN: r261550

gcc/fortran/ChangeLog

+2018-06-13  Cesar Philippidis  <cesar@codesourcery.com>
+
+	PR fortran/85702
+	* openmp.c (gfc_match_oacc_wait): Use %C to report error location.
+
 2018-06-12  David Malcolm  <dmalcolm@redhat.com>
 
 	PR other/69968

gcc/fortran/openmp.c

@@ -2177,8 +2177,7 @@ gfc_match_oacc_wait (void)
       {
 	if (el->expr == NULL)
 	  {
-	    gfc_error ("Invalid argument to !$ACC WAIT at %L",
-		       &wait_list->expr->where);
+	    gfc_error ("Invalid argument to !$ACC WAIT at %C");
 	    return MATCH_ERROR;
 	  }
 

gcc/testsuite/ChangeLog

+2018-06-13  Cesar Philippidis  <cesar@codesourcery.com>
+
+	PR fortran/85702
+	* gfortran.dg/goacc/pr85702.f90: New test.
+
 2018-06-13  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc.target/i386/pr86048.c: New test.

gcc/testsuite/gfortran.dg/goacc/pr85702.f90

+! PR fortran/85702
+! { dg-do compile }
+
+subroutine s
+  !$acc wait(*) ! { dg-error "Invalid argument to ..ACC WAIT" }
+end