decl.c (match_attr_spec, [...]): Unify gfc_notify_std message for GFC_STD_F2003.

fortran/
2006-11-06  Tobias Burnus  <burnus@net-b.de>

       * decl.c (match_attr_spec, gfc_match_enum): Unify gfc_notify_std
         message for GFC_STD_F2003.
       * array.c (gfc_match_array_constructor): Unify gfc_notify_std
         message for GFC_STD_F2003.
       * io.c (check_io_constraints): Unify gfc_notify_std message for
         GFC_STD_F2003.
       * resolve.c (resolve_actual_arglist): Unify gfc_notify_std message
         for GFC_STD_F2003.

testsuite/
2006-11-06  Tobias Burnus  <burnus@net-b.de>

       * gfortran.dg/io_constraints_2.f90: Adjust pattern
         for matching error messages.
       * gfortran.dg/specifics_3.f90: Adjust pattern
         for matching error messages.

From-SVN: r118542

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 1e3defe53818c36fd9d42732f76b23793f5baa54..5cec70a8ff0491f86c4404f4fca62a2f2dd11314 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,14 @@
+2006-11-06  Tobias Burnus  <burnus@net-b.de>
+
+       * decl.c (match_attr_spec, gfc_match_enum): Unify gfc_notify_std
+         message for GFC_STD_F2003.
+       * array.c (gfc_match_array_constructor): Unify gfc_notify_std
+         message for GFC_STD_F2003.
+       * io.c (check_io_constraints): Unify gfc_notify_std message for
+         GFC_STD_F2003.
+       * resolve.c (resolve_actual_arglist): Unify gfc_notify_std message
+         for GFC_STD_F2003.
+
 2006-11-06  Brooks Moses  <brooks.moses@codesourcery.com>
 
        * intrinsic.texi: Added documentation for FTELL, GETLOG, and

diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c
index fa38ab9c956fd8fad5d072727092873afd2f1d9e..ace828c1c2a6bc28c6b4c0a7cb91a882db4dcece 100644 (file)
--- a/gcc/fortran/array.c
+++ b/gcc/fortran/array.c
@@ -874,7 +874,7 @@ gfc_match_array_constructor (gfc_expr ** result)
         return MATCH_NO;
       else
         {
-          if (gfc_notify_std (GFC_STD_F2003, "New in Fortran 2003: [...] "
+          if (gfc_notify_std (GFC_STD_F2003, "Fortran 2003: [...] "
                               "style array constructors at %C") == FAILURE)
             return MATCH_ERROR;
           end_delim = " ]";

diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 84797b7fdc09da68ba3336c999a7e0e19eb48ce1..e326b94e8c8793327276222e596f31ec909be155 100644 (file)
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -2191,8 +2191,8 @@ match_attr_spec (void)
          if (d == DECL_ALLOCATABLE)
            {
              if (gfc_notify_std (GFC_STD_F2003, 
-                                  "In the selected standard, the ALLOCATABLE "
-                                  "attribute at %C is not allowed in a TYPE "
+                                  "Fortran 2003: ALLOCATABLE "
+                                  "attribute at %C in a TYPE "
                                   "definition") == FAILURE)         
                {
                  m = MATCH_ERROR;
@@ -4143,7 +4143,7 @@ gfc_match_enum (void)
     return m;
 
   if (gfc_notify_std (GFC_STD_F2003, 
-                     "New in Fortran 2003: ENUM AND ENUMERATOR at %C")
+                     "Fortran 2003: ENUM AND ENUMERATOR at %C")
       == FAILURE)
     return MATCH_ERROR;
 

diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index ae9df4a967b6c22f672ea5040cf1733436f2779f..3da0d2642a9b3a896be217865656767d69c16b54 100644 (file)
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -2599,7 +2599,7 @@ if (condition) \
       if (dt->namelist != NULL)
         {
           if (gfc_notify_std(GFC_STD_F2003,
-                         "Internal file at %L is incompatible with namelist",
+                         "Fortran 2003: Internal file at %L with namelist",
                          &expr->where) == FAILURE)
             m = MATCH_ERROR;
         }

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index d3722e61f75738a2fa64310532b01edddc93e5eb..02069156ab9f8c8c9463fe87fab9ec4928de8d87 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -888,7 +888,7 @@ resolve_actual_arglist (gfc_actual_arglist * arg)
             function allowed as actual argument in F2003 and not allowed
             in F95.  */
            gfc_notify_std (GFC_STD_F2003, "Fortran 2003: CHAR intrinsic "
-                           "allowed as actual argument at %L", &e->where);
+                           "as actual argument at %L", &e->where);
 
          if (sym->attr.contained && !sym->attr.use_assoc
              && sym->ns->proc_name->attr.flavor != FL_MODULE)

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f9baa74b8a30e5da351eca4088bbd9a73f8a1e26..b133c30ce6a63fc033e760e99d26313050e99b38 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2006-11-06  Tobias Burnus  <burnus@net-b.de>
+
+       * gfortran.dg/io_constraints_2.f90: Adjust pattern
+         for matching error messages.
+       * gfortran.dg/specifics_3.f90: Adjust pattern
+         for matching error messages.
+
 2006-11-06  Janis Johnson  <janis187@us.ibm.com
            Bernhard Fischer  <aldot@gcc.gnu.org>
 

diff --git a/gcc/testsuite/gfortran.dg/io_constraints_2.f90 b/gcc/testsuite/gfortran.dg/io_constraints_2.f90
index 0b2c2049adfa215102c9cb7997ee05336a397b69..73c4979f2a9ce385163a93a762ce85c8fd838252 100644 (file)
--- a/gcc/testsuite/gfortran.dg/io_constraints_2.f90
+++ b/gcc/testsuite/gfortran.dg/io_constraints_2.f90
@@ -40,7 +40,7 @@ end module global
 !
 ! Not allowed with internal unit
 !Was correctly picked up before patch.
- write(buffer, NML=NL)                          !  { dg-error "incompatible with namelist" }
+ write(buffer, NML=NL)                          !  { dg-error "Internal file at \\(1\\) with namelist" }
 !Was correctly picked up before patch.
  write(buffer, fmt='(i6)', REC=10) a            !  { dg-error "REC tag" }
  write(buffer, fmt='(i6)', END=10) a            !  { dg-error "END tag" }

diff --git a/gcc/testsuite/gfortran.dg/specifics_3.f90 b/gcc/testsuite/gfortran.dg/specifics_3.f90
index 3b5ddada4265b2cb2ae2850626f27daf38acf90e..7f5c427dd62a43754782db710ef91c0a4d467845 100644 (file)
--- a/gcc/testsuite/gfortran.dg/specifics_3.f90
+++ b/gcc/testsuite/gfortran.dg/specifics_3.f90
@@ -1,5 +1,5 @@
 ! { dg-do compile }
 ! { dg-options "-std=f95" }
   intrinsic char
-  call foo(char) ! { dg-error "Fortran 2003: CHAR intrinsic allowed as actual argument" }
+  call foo(char) ! { dg-error "Fortran 2003: CHAR intrinsic as actual argument" }
   end