[Bug fortran/35849] "wrong" line shown in error message for parameter

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=35849

--- Comment #5 from kargl at gcc dot gnu.org ---
Index: simplify.c
===================================================================
--- simplify.c  (revision 237855)
+++ simplify.c  (working copy)
@@ -3280,7 +3280,6 @@ gfc_simplify_ishftc (gfc_expr *e, gfc_ex
        return NULL;

       gfc_extract_int (sz, &ssize);
-
     }
   else
     ssize = isize;
@@ -3294,7 +3293,10 @@ gfc_simplify_ishftc (gfc_expr *e, gfc_ex
     {
       if (sz == NULL)
        gfc_error ("Magnitude of second argument of ISHFTC exceeds "
-                  "BIT_SIZE of first argument at %L", &s->where);
+                  "BIT_SIZE of first argument at %C");
+      else
+       gfc_error ("Absolute value of SHIFT shall be less than or equal "
+                  "to SIZE at %C");
       return &gfc_bad_expr;
     }