[Bug fortran/17590] Standard conformance should take intrinsics into account.

["graham dot stott at btinternet dot com" <gcc-bugzilla at gcc dot gnu dot org>]

------- Additional Comments From graham dot stott at btinternet dot com  2004-10-31 14:52 -------
Subject: Re:  Standard conformance should take intrinsics
 into account.

All,

FWIW here's a quick patch which fixes bootstrap problem for me on i686-pc-linux-gnu.

I've got to go out the door in 5 mins do with as you see fit.

Graham


----------------------------------------------------------------------------------------
Index: intrinsic.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/intrinsic.c,v
retrieving revision 1.27
diff -c -p -r1.27 intrinsic.c
*** intrinsic.c 31 Oct 2004 01:24:29 -0000      1.27
--- intrinsic.c 31 Oct 2004 14:46:19 -0000
*************** gfc_init_expr_extensions (gfc_intrinsic_
*** 2672,2687 ****
   static void
   check_intrinsic_standard (const char *name, int standard)
   {
!   int name_len;
!   char msgstr[name_len + 53];
!
!   if (!gfc_option.warn_nonstd_intrinsics)
!     return;
!
!   name_len = strlen (name);
!   strncpy (msgstr, name, name_len + 1);
!   strncat (msgstr, " intrinsic is not included in the selected standard.", 53);
!   gfc_notify_std (standard, msgstr);
   }


--- 2671,2688 ----
   static void
   check_intrinsic_standard (const char *name, int standard)
   {
!   if (gfc_option.warn_nonstd_intrinsics)
!   {
!     static const char err[] = " intrinsic is not included in the selected standard.";
!     size_t err_len  = sizeof (err);
!     size_t name_len = strlen (name);
!     char *msgstr = gfc_getmem (name_len + err_len);
!
!     memcpy (msgstr, name, name_len);
!     memcpy (&msgstr[name_len], err,  err_len);
!     gfc_notify_std (standard, msgstr);
!     gfc_free (msgstr);
!   }
   }

                                                                                                                                              ----------------------------------------------------------------------------------------


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17590