2009-08-02 Janus Weil <janus@gcc.gnu.org>

author janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4>

Sun, 2 Aug 2009 10:58:44 +0000 (10:58 +0000)

committer janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4>

Sun, 2 Aug 2009 10:58:44 +0000 (10:58 +0000)
author janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 2 Aug 2009 10:58:44 +0000 (10:58 +0000)
committer janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 2 Aug 2009 10:58:44 +0000 (10:58 +0000)
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog

index d812f9d..45cec95 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,16 @@
+2009-08-02  Janus Weil  <janus@gcc.gnu.org>
+
+       PR fortran/40881
+       * decl.c (match_char_length): Warn about old-style character length
+       declarations.
+       * match.c (match_arithmetic_if,gfc_match_if): Modify warning message
+       for arithmetic if.
+       (gfc_match_goto): Warn about computed gotos.
+       (gfc_match_return): Warn about alternate return.
+       (gfc_match_st_function): Warn about statement functions.
+       * resolve.c (resolve_fl_procedure): Modify warning message for
+       assumed-length character functions.
+
  2009-08-01  Paul Thomas  <pault@gcc.gnu.org>
  
         PR fortran/40011
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c

index 392f2a5..8dad9bf 100644 (file)
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -655,6 +655,9 @@ match_char_length (gfc_expr **expr)
  
    if (m == MATCH_YES)
      {
+      if (gfc_notify_std (GFC_STD_F95_OBS, "Obsolescent feature: "
+                         "Old-style character length at %C") == FAILURE)
+       return MATCH_ERROR;
        *expr = gfc_int_expr (length);
        return m;
      }
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c

index 9de4da2..b9b9d54 100644 (file)
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -1383,8 +1383,8 @@ match_arithmetic_if (void)
        return MATCH_ERROR;
      }
  
-  if (gfc_notify_std (GFC_STD_F95_OBS, "Obsolescent: arithmetic IF statement "
-                     "at %C") == FAILURE)
+  if (gfc_notify_std (GFC_STD_F95_OBS, "Obsolescent feature: Arithmetic IF "
+                     "statement at %C") == FAILURE)
      return MATCH_ERROR;
  
    new_st.op = EXEC_ARITHMETIC_IF;
@@ -1464,7 +1464,7 @@ gfc_match_if (gfc_statement *if_type)
           return MATCH_ERROR;
         }
        
-      if (gfc_notify_std (GFC_STD_F95_OBS, "Obsolescent: arithmetic IF "
+      if (gfc_notify_std (GFC_STD_F95_OBS, "Obsolescent feature: Arithmetic IF "
                           "statement at %C") == FAILURE)
         return MATCH_ERROR;
  
@@ -2180,6 +2180,10 @@ gfc_match_goto (void)
    if (gfc_match (" %e%t", &expr) != MATCH_YES)
      goto syntax;
  
+  if (gfc_notify_std (GFC_STD_F95_OBS, "Obsolescent feature: Computed GOTO "
+                     "at %C") == FAILURE)
+    return MATCH_ERROR;
+
    /* At this point, a computed GOTO has been fully matched and an
       equivalent SELECT statement constructed.  */
  
@@ -2580,6 +2584,10 @@ gfc_match_return (void)
        goto cleanup;
      }
  
+  if (gfc_notify_std (GFC_STD_F95_OBS, "Obsolescent feature: Alternate RETURN "
+                     "at %C") == FAILURE)
+    return MATCH_ERROR;
+
    if (gfc_current_form == FORM_FREE)
      {
        /* The following are valid, so we can't require a blank after the
@@ -3517,6 +3525,10 @@ gfc_match_st_function (void)
  
    sym->value = expr;
  
+  if (gfc_notify_std (GFC_STD_F95_OBS, "Obsolescent feature: "
+                     "Statement function at %C") == FAILURE)
+    return MATCH_ERROR;
+
    return MATCH_YES;
  
  undo_error:
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c

index 6202a2d..14a111e 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -8289,8 +8289,8 @@ resolve_fl_procedure (gfc_symbol *sym, int mp_flag)
        /* Appendix B.2 of the standard.  Contained functions give an
          error anyway.  Fixed-form is likely to be F77/legacy.  */
        if (!sym->attr.contained && gfc_current_form != FORM_FIXED)
-       gfc_notify_std (GFC_STD_F95_OBS, "CHARACTER(*) function "
-                       "'%s' at %L is obsolescent in fortran 95",
+       gfc_notify_std (GFC_STD_F95_OBS, "Obsolescent feature: "
+                       "CHARACTER(*) function '%s' at %L",
                         sym->name, &sym->declared_at);
      }
  
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog

index 477f372..d01a1a7 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,148 @@
+2009-08-02  Janus Weil  <janus@gcc.gnu.org>
+
+       PR fortran/40881
+       * gfortran.dg/aliasing_dummy_1.f90: Add -std=legacy.
+       * gfortran.dg/altreturn_3.f90: Ditto.
+       * gfortran.dg/altreturn_5.f90: Ditto.
+       * gfortran.dg/altreturn_6.f90: Ditto.
+       * gfortran.dg/altreturn_7.f90: Ditto.
+       * gfortran.dg/array_constructor_13.f90: Ditto.
+       * gfortran.dg/arrayio_7.f90: Ditto.
+       * gfortran.dg/arrayio_8.f90: Ditto.
+       * gfortran.dg/assumed_charlen_function_3.f90: Modified warning message.
+       * gfortran.dg/assumed_charlen_function_4.f90: Add -std=legacy.
+       * gfortran.dg/assumed_charlen_function_5.f90: Modified warning message.
+       * gfortran.dg/backspace_8.f: Add -std=legacy.
+       * gfortran.dg/backspace_9.f: Ditto.
+       * gfortran.dg/char_comparison_1.f: Ditto.
+       * gfortran.dg/char_decl_1.f90: Ditto.
+       * gfortran.dg/char_initialiser_actual.f90: Ditto.
+       * gfortran.dg/char_pointer_assign.f90: Ditto.
+       * gfortran.dg/char_pointer_dependency.f90: Ditto.
+       * gfortran.dg/char_pointer_dummy.f90: Ditto.
+       * gfortran.dg/char_pointer_func.f90: Ditto.
+       * gfortran.dg/common_8.f90: Ditto.
+       * gfortran.dg/constant_substring.f: Ditto.
+       * gfortran.dg/data_char_2.f90: Ditto.
+       * gfortran.dg/der_array_io_1.f90: Ditto.
+       * gfortran.dg/der_array_io_2.f90: Ditto.
+       * gfortran.dg/der_array_io_3.f90: Ditto.
+       * gfortran.dg/der_io_3.f90: Ditto.
+       * gfortran.dg/dev_null.F90: Ditto.
+       * gfortran.dg/direct_io_2.f90: Ditto.
+       * gfortran.dg/do_iterator_2.f90: Ditto.
+       * gfortran.dg/e_d_fmt.f90: Ditto.
+       * gfortran.dg/empty_format_1.f90: Ditto.
+       * gfortran.dg/entry_17.f90: Modified warning message.
+       * gfortran.dg/entry_7.f90: Add -std=legacy.
+       * gfortran.dg/eor_1.f90: Ditto.
+       * gfortran.dg/equiv_2.f90: Ditto.
+       * gfortran.dg/equiv_constraint_2.f90: Use new-style character length.
+       * gfortran.dg/equiv_substr.f90: Add -std=legacy.
+       * gfortran.dg/extended_char_comparison_1.f: Ditto.
+       * gfortran.dg/fmt_bz_bn_err.f: Ditto.
+       * gfortran.dg/fmt_error_2.f90: Ditto.
+       * gfortran.dg/fmt_read_bz_bn.f90: Ditto.
+       * gfortran.dg/fmt_tl.f: Ditto.
+       * gfortran.dg/fmt_white.f: Ditto.
+       * gfortran.dg/func_derived_1.f90: Ditto.
+       * gfortran.dg/g77_intrinsics_funcs.f: Ditto.
+       * gfortran.dg/g77_intrinsics_sub.f: Ditto.
+       * gfortran.dg/global_references_2.f90: Ditto.
+       * gfortran.dg/hollerith_1.f90: Ditto.
+       * gfortran.dg/hollerith.f90: Use new-style character length.
+       * gfortran.dg/hollerith_f95.f90: Ditto.
+       * gfortran.dg/ichar_1.f90: Add -std=legacy.
+       * gfortran.dg/implicit_6.f90: Ditto.
+       * gfortran.dg/implicit_9.f90: Ditto.
+       * gfortran.dg/inquire_13.f90: Ditto.
+       * gfortran.dg/inquire_5.f90: Ditto.
+       * gfortran.dg/inquire_6.f90: Ditto.
+       * gfortran.dg/inquire.f90: Ditto.
+       * gfortran.dg/io_constraints_1.f90: Use new-style character length.
+       * gfortran.dg/io_constraints_2.f90: Ditto.
+       * gfortran.dg/list_read_2.f90: Add -std=legacy.
+       * gfortran.dg/loc_2.f90: Ditto.
+       * gfortran.dg/logical_1.f90: Ditto.
+       * gfortran.dg/longline.f: Ditto.
+       * gfortran.dg/merge_char_1.f90: Ditto.
+       * gfortran.dg/namelist_12.f: Ditto.
+       * gfortran.dg/namelist_14.f90: Ditto.
+       * gfortran.dg/namelist_18.f90: Ditto.
+       * gfortran.dg/namelist_19.f90: Ditto.
+       * gfortran.dg/namelist_21.f90: Ditto.
+       * gfortran.dg/namelist_22.f90: Ditto.
+       * gfortran.dg/namelist_37.f90: Ditto.
+       * gfortran.dg/namelist_54.f90: Ditto.
+       * gfortran.dg/namelist_55.f90: Ditto.
+       * gfortran.dg/namelist_empty.f90: Ditto.
+       * gfortran.dg/namelist_use.f90: Use new-style character length.
+       * gfortran.dg/namelist_use_only.f90: Add -std=legacy.
+       * gfortran.dg/nested_modules_4.f90: Ditto.
+       * gfortran.dg/nested_modules_5.f90: Ditto.
+       * gfortran.dg/open-options-blanks.f: Ditto.
+       * gfortran.dg/output_exponents_1.f90: Ditto.
+       * gfortran.dg/parens_5.f90: Ditto.
+       * gfortran.dg/parens_6.f90: Ditto.
+       * gfortran.dg/parent_result_ref_2.f90: Modified warning message.
+       * gfortran.dg/pointer_function_actual_1.f90: Add -std=legacy.
+       * gfortran.dg/pr15129.f90: Ditto.
+       * gfortran.dg/pr15332.f: Ditto.
+       * gfortran.dg/pr16597.f90: Ditto.
+       * gfortran.dg/pr17143.f90: Ditto.
+       * gfortran.dg/pr17164.f90: Ditto.
+       * gfortran.dg/pr17229.f: Modified warning message.
+       * gfortran.dg/pr18210.f90: Add -std=legacy.
+       * gfortran.dg/pr19155.f: Ditto.
+       * gfortran.dg/pr20086.f90: Ditto.
+       * gfortran.dg/pr20124.f90: Ditto.
+       * gfortran.dg/pr20755.f: Ditto.
+       * gfortran.dg/pr20865.f90: Ditto.
+       * gfortran.dg/pr20950.f: Ditto.
+       * gfortran.dg/pr21730.f: Ditto.
+       * gfortran.dg/pr22491.f: Ditto.
+       * gfortran.dg/pr29713.f90: Ditto.
+       * gfortran.dg/print_parentheses_1.f: Ditto.
+       * gfortran.dg/print_parentheses_2.f90: Ditto.
+       * gfortran.dg/proc_assign_1.f90: Ditto.
+       * gfortran.dg/proc_decl_1.f90: Ditto.
+       * gfortran.dg/proc_ptr_17.f90: Add dg-warning.
+       * gfortran.dg/read_eor.f90: : Add -std=legacy.
+       * gfortran.dg/read_float_1.f90: Ditto.
+       * gfortran.dg/read_logical.f90: Ditto.
+       * gfortran.dg/recursive_statement_functions.f90: Ditto.
+       * gfortran.dg/return_1.f90: Ditto.
+       * gfortran.dg/rewind_1.f90: Ditto.
+       * gfortran.dg/runtime_warning_1.f90: Use new-style character length.
+       * gfortran.dg/scalar_return_1.f90: Add -std=legacy.
+       * gfortran.dg/stfunc_1.f90: Ditto.
+       * gfortran.dg/stfunc_3.f90: Ditto.
+       * gfortran.dg/stfunc_4.f90: Ditto.
+       * gfortran.dg/stfunc_6.f90: Ditto.
+       * gfortran.dg/streamio_2.f90: Ditto.
+       * gfortran.dg/string_ctor_1.f90: Ditto.
+       * gfortran.dg/string_null_compare_1.f: Ditto.
+       * gfortran.dg/substr_6.f90: Ditto.
+       * gfortran.dg/tl_editing.f90: Ditto.
+       * gfortran.dg/unf_io_convert_1.f90: Use new-style character length.
+       * gfortran.dg/warnings_are_errors_1.f90: Modified warning message.
+       * gfortran.dg/x_slash_1.f: Add -std=legacy.
+       * gfortran.dg/g77/1832.f: Ditto.
+       * gfortran.dg/g77/19981216-0.f Ditto.
+       * gfortran.dg/g77/19990525-0.f: Ditto.
+       * gfortran.dg/g77/19990826-2.f: Ditto.
+       * gfortran.dg/g77/20000630-2.f: Ditto.
+       * gfortran.dg/g77/20010116.f: Ditto.
+       * gfortran.dg/g77/20010519-1.f: Use new-style character length.
+       * gfortran.dg/g77/980419-2.f: Add -std=legacy.
+       * gfortran.dg/g77/980520-1.f: Ditto.
+       * gfortran.dg/g77/check0.f: Ditto.
+       * gfortran.dg/g77/cpp3.F: Ditto.
+       * gfortran.dg/g77/cpp4.F: Use new-style character length.
+       * gfortran.dg/g77/f77-edit-i-in.f: Add -std=legacy.
+       * gfortran.dg/g77/f77-edit-t-in.f: Ditto.
+       * gfortran.dg/g77/short.f: Ditto.
+
  2009-08-01  Adam Nemet  <anemet@caviumnetworks.com>
  
         * gcc.target/mips/ext-3.c: Add NOMIPS16.
diff --git a/gcc/testsuite/gfortran.dg/aliasing_dummy_1.f90 b/gcc/testsuite/gfortran.dg/aliasing_dummy_1.f90

index 0d0b588..686853a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/aliasing_dummy_1.f90
+++ b/gcc/testsuite/gfortran.dg/aliasing_dummy_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! This tests the fix for PR24276, which originated from the Loren P. Meissner example,
  ! Array_List.  The PR concerns dummy argument aliassing of components of arrays of derived
  ! types as arrays of the type of the component.  gfortran would compile and run this
@@ -61,4 +63,5 @@ contains
      write (slist(1,1), '(2hi=,i3)') i
    end subroutine foo3
  
-end program test_lex
-\ No newline at end of file
+end program test_lex
+
diff --git a/gcc/testsuite/gfortran.dg/altreturn_3.f90 b/gcc/testsuite/gfortran.dg/altreturn_3.f90

index 999ada8..daa0901 100644 (file)
--- a/gcc/testsuite/gfortran.dg/altreturn_3.f90
+++ b/gcc/testsuite/gfortran.dg/altreturn_3.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Tests the fix for PR30236, which was due to alternate returns
  ! in generic interfaces causing a segfault.  They now work
  ! correctly.
diff --git a/gcc/testsuite/gfortran.dg/altreturn_5.f90 b/gcc/testsuite/gfortran.dg/altreturn_5.f90

index ff1b822..a8b6ff8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/altreturn_5.f90
+++ b/gcc/testsuite/gfortran.dg/altreturn_5.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Tests the fix for PR31483, in which dummy argument procedures
  ! produced an ICE if they had an alternate return.
  !
diff --git a/gcc/testsuite/gfortran.dg/altreturn_6.f90 b/gcc/testsuite/gfortran.dg/altreturn_6.f90

index 61f5f60..19c851e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/altreturn_6.f90
+++ b/gcc/testsuite/gfortran.dg/altreturn_6.f90
@@ -1,3 +1,6 @@
+! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! PR 32938
  subroutine r (*)
    integer(kind=8) :: i
diff --git a/gcc/testsuite/gfortran.dg/altreturn_7.f90 b/gcc/testsuite/gfortran.dg/altreturn_7.f90

index 6eb0c78..d1786d0 100644 (file)
--- a/gcc/testsuite/gfortran.dg/altreturn_7.f90
+++ b/gcc/testsuite/gfortran.dg/altreturn_7.f90
@@ -1,4 +1,5 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
  !
  ! PR 40848: [4.5 Regression] ICE with alternate returns
  !
diff --git a/gcc/testsuite/gfortran.dg/array_constructor_13.f90 b/gcc/testsuite/gfortran.dg/array_constructor_13.f90

index bacc6ff..74f3d49 100644 (file)
--- a/gcc/testsuite/gfortran.dg/array_constructor_13.f90
+++ b/gcc/testsuite/gfortran.dg/array_constructor_13.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! Tests patch for PR29431, which arose from PR29373.
  !
  ! Contributed by Tobias Schlueter  <tobi@gcc.gnu.org>
diff --git a/gcc/testsuite/gfortran.dg/arrayio_7.f90 b/gcc/testsuite/gfortran.dg/arrayio_7.f90

index 6958176..68d1fbf 100644 (file)
--- a/gcc/testsuite/gfortran.dg/arrayio_7.f90
+++ b/gcc/testsuite/gfortran.dg/arrayio_7.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR24224 Test formatted input/output to/from character arrays with strides
  ! other than 1.  Test that reading stops at the end of the current record.
  ! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
diff --git a/gcc/testsuite/gfortran.dg/arrayio_8.f90 b/gcc/testsuite/gfortran.dg/arrayio_8.f90

index 9dc81f8..7b609bd 100644 (file)
--- a/gcc/testsuite/gfortran.dg/arrayio_8.f90
+++ b/gcc/testsuite/gfortran.dg/arrayio_8.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR28339, This test checks that internal unit array I/O handles a full record
  ! and advances to the next record properly.  Test case derived from PR
  ! Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
diff --git a/gcc/testsuite/gfortran.dg/assumed_charlen_function_3.f90 b/gcc/testsuite/gfortran.dg/assumed_charlen_function_3.f90

index 09c9be9..912126f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/assumed_charlen_function_3.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_charlen_function_3.f90
@@ -5,13 +5,13 @@
  !\r
  ! Contributed by Paul Thomas  <pault@gcc.gnu.org>\r
  !\r
-function is_OK (ch)                ! { dg-warning "is obsolescent in fortran 95" }\r
+function is_OK (ch)                ! { dg-warning "Obsolescent feature" }\r
    character(*) is_OK, ch           ! OK in an external function\r
    is_OK = ch\r
  end function is_OK\r
  \r
  ! The warning occurs twice for the next line; for 'more_OK' and for 'fcn';\r
-function more_OK (ch, fcn)         ! { dg-warning "is obsolescent in fortran 95" }\r
+function more_OK (ch, fcn)         ! { dg-warning "Obsolescent feature" }\r
    character(*) more_OK, ch\r
    character (*), external :: fcn   ! OK as a dummy argument\r
    more_OK = fcn (ch)\r
diff --git a/gcc/testsuite/gfortran.dg/assumed_charlen_function_4.f90 b/gcc/testsuite/gfortran.dg/assumed_charlen_function_4.f90

index 9c96ba4..c8f8044 100644 (file)
--- a/gcc/testsuite/gfortran.dg/assumed_charlen_function_4.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_charlen_function_4.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! Tests the fix for PR28600 in which the declaration for the
  ! character length n, would be given the DECL_CONTEXT of 'gee'
  ! thus causing an ICE.
diff --git a/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90 b/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90

index cc7e010..8a07889 100644 (file)
--- a/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90
@@ -5,14 +5,14 @@
  !
  ! Contributed by Paul Thomas  <pault@gcc.gnu.org>
  !
-character(*) function charrext (n)  ! { dg-warning "is obsolescent in fortran 95" }
+character(*) function charrext (n)  ! { dg-warning "Obsolescent feature" }
    character(26) :: alpha ="abcdefghijklmnopqrstuvwxyz"
    charrext = alpha (1:n)
  end function charrext
  
    character(26), external :: charrext
    interface
-    integer(4) function test(charr, i)  ! { dg-warning "is obsolescent in fortran 95" }
+    integer(4) function test(charr, i)  ! { dg-warning "Obsolescent feature" }
       character(*), external :: charr
       integer :: i
      end function test
@@ -23,7 +23,7 @@ end function charrext
      m = ctest (charrext, 27 - j)
    end do
  contains
-  integer(4) function ctest(charr, i)  ! { dg-warning "is obsolescent in fortran 95" }
+  integer(4) function ctest(charr, i)  ! { dg-warning "Obsolescent feature" }
      character(*) :: charr
      integer :: i
      print *, charr(i)
@@ -31,7 +31,7 @@ contains
    end function ctest
  end
  
-integer(4) function test(charr, i)  ! { dg-warning "is obsolescent in fortran 95" }
+integer(4) function test(charr, i)  ! { dg-warning "Obsolescent feature" }
    character(*) :: charr
    integer :: i
    print *, charr(i)
diff --git a/gcc/testsuite/gfortran.dg/backspace_8.f b/gcc/testsuite/gfortran.dg/backspace_8.f

index 8c8c96a..2dd6b72 100644 (file)
--- a/gcc/testsuite/gfortran.dg/backspace_8.f
+++ b/gcc/testsuite/gfortran.dg/backspace_8.f
@@ -1,4 +1,6 @@
  C { dg-do run }
+C { dg-options "-std=legacy" }
+C
  C PR libfortran/31618 - backspace after an error didn't work.
        program main
        character*78 msg
diff --git a/gcc/testsuite/gfortran.dg/backspace_9.f b/gcc/testsuite/gfortran.dg/backspace_9.f

index fe62ea5..851f518 100644 (file)
--- a/gcc/testsuite/gfortran.dg/backspace_9.f
+++ b/gcc/testsuite/gfortran.dg/backspace_9.f
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR32235 incorrectly position text file after backspace
  ! Test case from PR, prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
        program main
diff --git a/gcc/testsuite/gfortran.dg/char_comparison_1.f b/gcc/testsuite/gfortran.dg/char_comparison_1.f

index 9a316b7..02f69e0 100644 (file)
--- a/gcc/testsuite/gfortran.dg/char_comparison_1.f
+++ b/gcc/testsuite/gfortran.dg/char_comparison_1.f
@@ -1,4 +1,6 @@
  C { dg-do run }
+C { dg-options "-std=legacy" }
+C
  C     PR 30525 - comparisons with padded spaces were done
  C     signed.
        program main
diff --git a/gcc/testsuite/gfortran.dg/char_decl_1.f90 b/gcc/testsuite/gfortran.dg/char_decl_1.f90

index 7ce6974..3bef083 100644 (file)
--- a/gcc/testsuite/gfortran.dg/char_decl_1.f90
+++ b/gcc/testsuite/gfortran.dg/char_decl_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! PR32644 "CHARACTER*1, c" produces "Unclassifiable statement"
  program f
  character*1, c
diff --git a/gcc/testsuite/gfortran.dg/char_initialiser_actual.f90 b/gcc/testsuite/gfortran.dg/char_initialiser_actual.f90

index 920e106..d123aca 100644 (file)
--- a/gcc/testsuite/gfortran.dg/char_initialiser_actual.f90
+++ b/gcc/testsuite/gfortran.dg/char_initialiser_actual.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Tests passing of character array initialiser as actual argument.
  ! Fixes PR18109.
  ! Contributed by Paul Thomas pault@gcc.gnu.org  
diff --git a/gcc/testsuite/gfortran.dg/char_pointer_assign.f90 b/gcc/testsuite/gfortran.dg/char_pointer_assign.f90

index ee3da52..62fcf03 100644 (file)
--- a/gcc/testsuite/gfortran.dg/char_pointer_assign.f90
+++ b/gcc/testsuite/gfortran.dg/char_pointer_assign.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  program char_pointer_assign\r
  ! Test character pointer assignments, required\r
  ! to fix PR18890 and PR21297\r
@@ -38,4 +40,5 @@ program char_pointer_assign
    if (any (t2 /= "lnmo")) call abort ()\r
    if (any (c2 /= "onml")) call abort ()\r
    deallocate (c3, c4)\r
-end program char_pointer_assign
-\ No newline at end of file
+end program char_pointer_assign
+
diff --git a/gcc/testsuite/gfortran.dg/char_pointer_dependency.f90 b/gcc/testsuite/gfortran.dg/char_pointer_dependency.f90

index 94976cb..ef2d783 100644 (file)
--- a/gcc/testsuite/gfortran.dg/char_pointer_dependency.f90
+++ b/gcc/testsuite/gfortran.dg/char_pointer_dependency.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Test assignments from character pointer functions with dependencies
  ! are correctly resolved.
  ! Provided by Paul Thomas pault@gcc.gnu.org
diff --git a/gcc/testsuite/gfortran.dg/char_pointer_dummy.f90 b/gcc/testsuite/gfortran.dg/char_pointer_dummy.f90

index 1935de5..b533a1c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/char_pointer_dummy.f90
+++ b/gcc/testsuite/gfortran.dg/char_pointer_dummy.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  program char_pointer_dummy\r
  ! Test character pointer dummy arguments, required\r
  ! to fix PR16939 and PR18689\r
@@ -30,4 +32,5 @@ contains
      character*4, pointer       :: ac1(:)\r
      if (ac1(1) /= "wxyz") call abort ()\r
    end subroutine afoo\r
-end program char_pointer_dummy
-\ No newline at end of file
+end program char_pointer_dummy
+
diff --git a/gcc/testsuite/gfortran.dg/char_pointer_func.f90 b/gcc/testsuite/gfortran.dg/char_pointer_func.f90

index ddca76f..23f867e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/char_pointer_func.f90
+++ b/gcc/testsuite/gfortran.dg/char_pointer_func.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  program char_pointer_func
  ! Test assignments from character pointer functions, required
  ! to fix PR17192 and PR17202
diff --git a/gcc/testsuite/gfortran.dg/common_8.f90 b/gcc/testsuite/gfortran.dg/common_8.f90

index 5d08fcd..ada4408 100644 (file)
--- a/gcc/testsuite/gfortran.dg/common_8.f90
+++ b/gcc/testsuite/gfortran.dg/common_8.f90
@@ -1,4 +1,5 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
  !
  ! PR fortran/25062
  !
diff --git a/gcc/testsuite/gfortran.dg/constant_substring.f b/gcc/testsuite/gfortran.dg/constant_substring.f

index c3aff48..4ca11bc 100644 (file)
--- a/gcc/testsuite/gfortran.dg/constant_substring.f
+++ b/gcc/testsuite/gfortran.dg/constant_substring.f
@@ -1,5 +1,7 @@
  ! Simplify constant substring
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
        character*2 a
        character*4 b
        character*6 c
diff --git a/gcc/testsuite/gfortran.dg/data_char_2.f90 b/gcc/testsuite/gfortran.dg/data_char_2.f90

index 3e021b1..26e31a1 100644 (file)
--- a/gcc/testsuite/gfortran.dg/data_char_2.f90
+++ b/gcc/testsuite/gfortran.dg/data_char_2.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  !  Test that getting a character from a
  ! string data works.
  
diff --git a/gcc/testsuite/gfortran.dg/der_array_io_1.f90 b/gcc/testsuite/gfortran.dg/der_array_io_1.f90

index b43864d..244b600 100644 (file)
--- a/gcc/testsuite/gfortran.dg/der_array_io_1.f90
+++ b/gcc/testsuite/gfortran.dg/der_array_io_1.f90
@@ -1,5 +1,7 @@
  ! Test IO of arrays of integers in derived types
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  program main
  
    character* 10000 :: buf1, buf2
diff --git a/gcc/testsuite/gfortran.dg/der_array_io_2.f90 b/gcc/testsuite/gfortran.dg/der_array_io_2.f90

index c62fd1e..21e10d2 100644 (file)
--- a/gcc/testsuite/gfortran.dg/der_array_io_2.f90
+++ b/gcc/testsuite/gfortran.dg/der_array_io_2.f90
@@ -1,5 +1,7 @@
  ! Test IO of arrays in derived type arrays
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  program main
  
    character *1000 buf1, buf2
diff --git a/gcc/testsuite/gfortran.dg/der_array_io_3.f90 b/gcc/testsuite/gfortran.dg/der_array_io_3.f90

index ae89b3d..de56215 100644 (file)
--- a/gcc/testsuite/gfortran.dg/der_array_io_3.f90
+++ b/gcc/testsuite/gfortran.dg/der_array_io_3.f90
@@ -1,5 +1,7 @@
  ! Test IO of character arrays in derived types.
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  program main
   character*1000 buf1, buf2
   type :: foo_type
diff --git a/gcc/testsuite/gfortran.dg/der_io_3.f90 b/gcc/testsuite/gfortran.dg/der_io_3.f90

index 01066cf..1cb370c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/der_io_3.f90
+++ b/gcc/testsuite/gfortran.dg/der_io_3.f90
@@ -1,3 +1,6 @@
+! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! PR23843
  ! Make sure derived type I/O with PRIVATE components works where it's allowed
  module m1
diff --git a/gcc/testsuite/gfortran.dg/dev_null.F90 b/gcc/testsuite/gfortran.dg/dev_null.F90

index 2385e19..b8ba574 100644 (file)
--- a/gcc/testsuite/gfortran.dg/dev_null.F90
+++ b/gcc/testsuite/gfortran.dg/dev_null.F90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! pr19478 read from /dev/null
  ! Thomas.Koenig@online.de
  #if defined  _WIN32
diff --git a/gcc/testsuite/gfortran.dg/direct_io_2.f90 b/gcc/testsuite/gfortran.dg/direct_io_2.f90

index cc20f96..8e18052 100644 (file)
--- a/gcc/testsuite/gfortran.dg/direct_io_2.f90
+++ b/gcc/testsuite/gfortran.dg/direct_io_2.f90
@@ -1,4 +1,5 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
  !
  ! this testcase derived from NIST test FM413.FOR
  ! tests writing direct access files in ascending and descending
diff --git a/gcc/testsuite/gfortran.dg/do_iterator_2.f90 b/gcc/testsuite/gfortran.dg/do_iterator_2.f90

index 38f59b5..7422b9e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/do_iterator_2.f90
+++ b/gcc/testsuite/gfortran.dg/do_iterator_2.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Tests the fix for pr32613 - see:
  ! http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/495c154ee188d7f1/ea292134fe68b1d0#ea292134fe68b1d0
  !
diff --git a/gcc/testsuite/gfortran.dg/e_d_fmt.f90 b/gcc/testsuite/gfortran.dg/e_d_fmt.f90

index d463d89..f2a3a5f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/e_d_fmt.f90
+++ b/gcc/testsuite/gfortran.dg/e_d_fmt.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Verify that the D format uses 'D' as the exponent character.
  !   "     "    "  E   "     "   'E' "   "     "         " 
  CHARACTER*10 c1, c2
diff --git a/gcc/testsuite/gfortran.dg/empty_format_1.f90 b/gcc/testsuite/gfortran.dg/empty_format_1.f90

index 79a2d0c..ad60afa 100644 (file)
--- a/gcc/testsuite/gfortran.dg/empty_format_1.f90
+++ b/gcc/testsuite/gfortran.dg/empty_format_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR 17709
  ! We weren't resetting the internal EOR flag correctly, so the second read
  ! wasn't advancing to the next line.
diff --git a/gcc/testsuite/gfortran.dg/entry_17.f90 b/gcc/testsuite/gfortran.dg/entry_17.f90

index d466266..22aabb3 100644 (file)
--- a/gcc/testsuite/gfortran.dg/entry_17.f90
+++ b/gcc/testsuite/gfortran.dg/entry_17.f90
@@ -17,19 +17,19 @@ entry bar2()
    bar2 = ""
  end function test2
  
-function test3() ! { dg-warning "is obsolescent" }
+function test3() ! { dg-warning "Obsolescent feature" }
    character(*) :: test3
-  character(*) :: bar3 ! { dg-warning "is obsolescent" }
+  character(*) :: bar3 ! { dg-warning "Obsolescent feature" }
    test3 = ""
    return
  entry bar3()
    bar3 = ""
-end function test3 ! { dg-warning "is obsolescent" }
+end function test3 ! { dg-warning "Obsolescent feature" }
  
  function test4(n) ! { dg-error "returning variables of different string lengths" }
    integer  :: n
    character(n) :: test4
-  character(*) :: bar4 ! { dg-warning "is obsolescent" }
+  character(*) :: bar4 ! { dg-warning "Obsolescent feature" }
    test4 = ""
    return
  entry bar4()
@@ -45,11 +45,11 @@ entry bar5()
    bar5 = ""
  end function test5
  
-function test6() ! { dg-warning "is obsolescent|returning variables of different string lengths" }
+function test6() ! { dg-warning "Obsolescent feature|returning variables of different string lengths" }
    character(*) :: test6
    character(2) :: bar6
    test6 = ""
    return
  entry bar6()
    bar6 = ""
-end function test6 ! { dg-warning "is obsolescent" }
+end function test6 ! { dg-warning "Obsolescent feature" }
diff --git a/gcc/testsuite/gfortran.dg/entry_7.f90 b/gcc/testsuite/gfortran.dg/entry_7.f90

index 5294098..b011fe6 100644 (file)
--- a/gcc/testsuite/gfortran.dg/entry_7.f90
+++ b/gcc/testsuite/gfortran.dg/entry_7.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! Check that PR20877 and PR25047 are fixed by the patch for
  ! PR24558. Both modules would emit the error:
  ! insert_bbt(): Duplicate key found!
diff --git a/gcc/testsuite/gfortran.dg/eor_1.f90 b/gcc/testsuite/gfortran.dg/eor_1.f90

index dd3b5e9..cd0004b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/eor_1.f90
+++ b/gcc/testsuite/gfortran.dg/eor_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR 19451: The test for advance='NO' with eor used to be reversed.
  program main
    character*2 c
diff --git a/gcc/testsuite/gfortran.dg/equiv_2.f90 b/gcc/testsuite/gfortran.dg/equiv_2.f90

index 8bc7fb1..ee671f9 100644 (file)
--- a/gcc/testsuite/gfortran.dg/equiv_2.f90
+++ b/gcc/testsuite/gfortran.dg/equiv_2.f90
@@ -1,3 +1,6 @@
+! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
        subroutine broken_equiv1
        character*4 h
        character*3 i
diff --git a/gcc/testsuite/gfortran.dg/equiv_constraint_2.f90 b/gcc/testsuite/gfortran.dg/equiv_constraint_2.f90

index d721f96..8a4e0b5 100644 (file)
--- a/gcc/testsuite/gfortran.dg/equiv_constraint_2.f90
+++ b/gcc/testsuite/gfortran.dg/equiv_constraint_2.f90
@@ -30,8 +30,8 @@
  
    type       :: char_type
      sequence
-    character*4 :: ch
-    character*4 :: cha (6)
+    character(4) :: ch
+    character(4) :: cha (6)
    end type char_type
  
    type (char_type) ::  my_char
@@ -39,7 +39,7 @@
    type       :: mixed_type
      sequence
      integer     :: i(4)
-    character*4 :: cha (6)
+    character(4) :: cha (6)
    end type mixed_type
  
    type (mixed_type) ::  my_mixed, thy_mixed
diff --git a/gcc/testsuite/gfortran.dg/equiv_substr.f90 b/gcc/testsuite/gfortran.dg/equiv_substr.f90

index cd186cf..bad3a3a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/equiv_substr.f90
+++ b/gcc/testsuite/gfortran.dg/equiv_substr.f90
@@ -1,4 +1,5 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
  !
  ! PR fortran/34557
  !
diff --git a/gcc/testsuite/gfortran.dg/extended_char_comparison_1.f b/gcc/testsuite/gfortran.dg/extended_char_comparison_1.f

index 311567d..b3d7c04 100644 (file)
--- a/gcc/testsuite/gfortran.dg/extended_char_comparison_1.f
+++ b/gcc/testsuite/gfortran.dg/extended_char_comparison_1.f
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR 27715 - the front end and the library used to have different ideas
  ! about ordering for characters whose encoding is above 127.
  
diff --git a/gcc/testsuite/gfortran.dg/fmt_bz_bn_err.f b/gcc/testsuite/gfortran.dg/fmt_bz_bn_err.f

index 36881f8..579ab26 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fmt_bz_bn_err.f
+++ b/gcc/testsuite/gfortran.dg/fmt_bz_bn_err.f
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR38772 r143102 reveals missed error checking on floating point reads.
  ! Test case contributed by Jack Howarth.
        program badread
diff --git a/gcc/testsuite/gfortran.dg/fmt_error_2.f90 b/gcc/testsuite/gfortran.dg/fmt_error_2.f90

index 8fdaf9e..ae818da 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fmt_error_2.f90
+++ b/gcc/testsuite/gfortran.dg/fmt_error_2.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! PR 33269: we used to not simplify format strings before checking if
  ! they were valid, leading to a missed error.
  
diff --git a/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 b/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90

index d0d0193..5eea29a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90
+++ b/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Test various uses of BZ and BN format specifiers.
  ! Portions inspired by NIST F77 testsuite FM711.f
  ! Contributed by jvdelisle@verizon.net
diff --git a/gcc/testsuite/gfortran.dg/fmt_tl.f b/gcc/testsuite/gfortran.dg/fmt_tl.f

index d79146f..656499e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fmt_tl.f
+++ b/gcc/testsuite/gfortran.dg/fmt_tl.f
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR25631 Check that TL editing works for special case of no bytes written yet.
  ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
        real x
diff --git a/gcc/testsuite/gfortran.dg/fmt_white.f b/gcc/testsuite/gfortran.dg/fmt_white.f

index bcd056f..6921a72 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fmt_white.f
+++ b/gcc/testsuite/gfortran.dg/fmt_white.f
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR24268 Test case derived from example given by Iwan Kawrakow
  ! Embedded spaces in format strings should be ignored.
  ! Prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
diff --git a/gcc/testsuite/gfortran.dg/func_derived_1.f90 b/gcc/testsuite/gfortran.dg/func_derived_1.f90

index 496d290..2cf8e44 100644 (file)
--- a/gcc/testsuite/gfortran.dg/func_derived_1.f90
+++ b/gcc/testsuite/gfortran.dg/func_derived_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR 17244
  ! verifies that functions returning derived type work
  module m
diff --git a/gcc/testsuite/gfortran.dg/g77/1832.f b/gcc/testsuite/gfortran.dg/g77/1832.f

index 1d2ad92..6b7617d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/1832.f
+++ b/gcc/testsuite/gfortran.dg/g77/1832.f
@@ -1,4 +1,6 @@
  c { dg-do run }
+! { dg-options "-std=legacy" }
+!
        character*5   string
        write(string, *) "a "
        if (string .ne. ' a') call abort
diff --git a/gcc/testsuite/gfortran.dg/g77/19981216-0.f b/gcc/testsuite/gfortran.dg/g77/19981216-0.f

index 1e5db3c..82d259d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/19981216-0.f
+++ b/gcc/testsuite/gfortran.dg/g77/19981216-0.f
@@ -1,4 +1,6 @@
  c { dg-do compile }
+c { dg-options "-std=legacy" }
+c
  * Resent-From: Craig Burley <burley@gnu.org>
  * Resent-To: craig@jcb-sc.com
  * X-Delivered: at request of burley on mescaline.gnu.org
diff --git a/gcc/testsuite/gfortran.dg/g77/19990525-0.f b/gcc/testsuite/gfortran.dg/g77/19990525-0.f

index 589fb8e..4eb104c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/19990525-0.f
+++ b/gcc/testsuite/gfortran.dg/g77/19990525-0.f
@@ -1,4 +1,6 @@
  c { dg-do compile }
+c { dg-options "-std=legacy" }
+c
  * Mailing-List: contact egcs-bugs-help@egcs.cygnus.com; run by ezmlm
  * Precedence: bulk
  * Sender: owner-egcs-bugs@egcs.cygnus.com
diff --git a/gcc/testsuite/gfortran.dg/g77/19990826-2.f b/gcc/testsuite/gfortran.dg/g77/19990826-2.f

index b8384f8..8870c25 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/19990826-2.f
+++ b/gcc/testsuite/gfortran.dg/g77/19990826-2.f
@@ -1,4 +1,6 @@
  c { dg-do run }
+c { dg-options "-std=legacy" }
+c
  * From: "Billinghurst, David (RTD)" <David.Billinghurst@riotinto.com.au>
  * Subject: RE: single precision complex bug in g77 - was Testing g77 with LA
  * PACK 3.0
diff --git a/gcc/testsuite/gfortran.dg/g77/20000630-2.f b/gcc/testsuite/gfortran.dg/g77/20000630-2.f

index b2776bf..4948c49 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/20000630-2.f
+++ b/gcc/testsuite/gfortran.dg/g77/20000630-2.f
@@ -1,4 +1,6 @@
  c { dg-do compile }
+c { dg-options "-std=legacy" }
+c
        SUBROUTINE CHOUT(CHR,ICNT)
  C ICE: failed assertion `expr != NULL'
  C Reduced version of GNATS PR fortran/329 from trond.bo@dnmi.no
diff --git a/gcc/testsuite/gfortran.dg/g77/20010116.f b/gcc/testsuite/gfortran.dg/g77/20010116.f

index dd8ee93..ca7375d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/20010116.f
+++ b/gcc/testsuite/gfortran.dg/g77/20010116.f
@@ -1,4 +1,6 @@
  c { dg-do run }
+c { dg-options "-std=legacy" }
+c
  *
  *  Derived from LAPACK 3.0 routine CHGEQZ
  *  Fails on i686-pc-cygwin with gcc-2.97 snapshots at -O2 and higher
diff --git a/gcc/testsuite/gfortran.dg/g77/20010519-1.f b/gcc/testsuite/gfortran.dg/g77/20010519-1.f

index beead98..c268bf0 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/20010519-1.f
+++ b/gcc/testsuite/gfortran.dg/g77/20010519-1.f
@@ -340,10 +340,10 @@ C..##IF ACE
  C..##ENDIF
  C..##IF ADUMB
  C..##ENDIF
-      CHARACTER*4 GTRMA, NEXTA4, CURRA4
-      CHARACTER*6 NEXTA6
-      CHARACTER*8 NEXTA8
-      CHARACTER*20 NEXT20
+      CHARACTER(4) GTRMA, NEXTA4, CURRA4
+      CHARACTER(6) NEXTA6
+      CHARACTER(8) NEXTA8
+      CHARACTER(20) NEXT20
        INTEGER     ALLCHR, ALLSTK, ALLHP, DECODI, FIND52,
       *            GETATN, GETRES, GETRSN, GETSEG, GTRMI, I4VAL,
       *            ICHAR4, ICMP16, ILOGI4, INDX, INDXA, INDXAF,
@@ -390,11 +390,11 @@ C..##ENDIF
  C..##IF MMFF
        INTEGER LEN_TRIM
        EXTERNAL LEN_TRIM
-      CHARACTER*4 AtName
+      CHARACTER(4) AtName
        external AtName
-      CHARACTER*8 ElementName
+      CHARACTER(8) ElementName
        external ElementName
-      CHARACTER*10 QNAME
+      CHARACTER(10) QNAME
        external QNAME
        integer  IATTCH, IBORDR, CONN12, CONN13, CONN14
        integer  LEQUIV, LPATH
@@ -576,7 +576,7 @@ C..##ENDIF
       &            PIXX = 28, PIXY = 29, PIXZ = 30, PIYX = 31,
       &            PIYY = 32, PIYZ = 33, PIZX = 34, PIZY = 35,
       &            PIZZ = 36)
-      CHARACTER*4  CEPROP, CETERM, CEPRSS
+      CHARACTER(4)  CEPROP, CETERM, CEPRSS
        COMMON /ANER/ CEPROP(LENENP), CETERM(LENENT), CEPRSS(LENENV)
        LOGICAL  QEPROP, QETERM, QEPRSS
        COMMON /QENER/ QEPROP(LENENP), QETERM(LENENT), QEPRSS(LENENV)
@@ -653,7 +653,7 @@ C:::##INCLUDE '~/charmm_fcm/ctitla.fcm'
        INTEGER MAXTIT
        PARAMETER (MAXTIT=32)
        INTEGER NTITLA,NTITLB
-      CHARACTER*80 TITLEA,TITLEB
+      CHARACTER(80) TITLEA,TITLEB
        COMMON /NTITLA/ NTITLA,NTITLB
        COMMON /CTITLA/ TITLEA(MAXTIT),TITLEB(MAXTIT)
  C..##IF SAVEFCM
diff --git a/gcc/testsuite/gfortran.dg/g77/980419-2.f b/gcc/testsuite/gfortran.dg/g77/980419-2.f

index defda41..bb02862 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/980419-2.f
+++ b/gcc/testsuite/gfortran.dg/g77/980419-2.f
@@ -1,4 +1,6 @@
  c { dg-do compile }
+c { dg-options "-std=legacy" }
+c
  c     SEGVs in loop.c with -O2.
  
        character*80 function nxtlin(lun,ierr,itok)
diff --git a/gcc/testsuite/gfortran.dg/g77/980520-1.f b/gcc/testsuite/gfortran.dg/g77/980520-1.f

index edf7241..855b9a4 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/980520-1.f
+++ b/gcc/testsuite/gfortran.dg/g77/980520-1.f
@@ -1,4 +1,6 @@
  c { dg-do run }
+c { dg-options "-std=legacy" }
+c
  c     Produced a link error through not eliminating the unused statement
  c     function after 1998-05-15 change to gcc/toplev.c.  It's in
  c     `execute' since it needs to link.
diff --git a/gcc/testsuite/gfortran.dg/g77/check0.f b/gcc/testsuite/gfortran.dg/g77/check0.f

index 3febba9..f0a14f8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/check0.f
+++ b/gcc/testsuite/gfortran.dg/g77/check0.f
@@ -1,4 +1,6 @@
  c { dg-do compile }
+c { dg-options "-std=legacy" }
+c
  CCC Abort fixed by:
  CCC1998-04-21  Jim Wilson  <wilson@cygnus.com>
  CCC
diff --git a/gcc/testsuite/gfortran.dg/g77/cpp3.F b/gcc/testsuite/gfortran.dg/g77/cpp3.F

index 3838773..ab25b53 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/cpp3.F
+++ b/gcc/testsuite/gfortran.dg/g77/cpp3.F
@@ -1,4 +1,6 @@
  c { dg-do run }
+c { dg-options "-std=legacy" }
+c
  !  Some versions of cpp will delete "//'World' as a C++ comment.
        character*40    title
        title = 'Hello '//'World'
diff --git a/gcc/testsuite/gfortran.dg/g77/cpp4.F b/gcc/testsuite/gfortran.dg/g77/cpp4.F

index 0dd5c99..bc14e04 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/cpp4.F
+++ b/gcc/testsuite/gfortran.dg/g77/cpp4.F
@@ -1,8 +1,8 @@
-      ! { dg-do run }
+c { dg-do run }
  C The preprocessor must not mangle Hollerith constants
  C which contain apostrophes.
        integer i
-      character*4 j
+      character(4) j
        data i /4hbla'/
        write (j, '(4a)') i
        if (j .ne. "bla'") call abort
diff --git a/gcc/testsuite/gfortran.dg/g77/f77-edit-i-in.f b/gcc/testsuite/gfortran.dg/g77/f77-edit-i-in.f

index 49eb416..0369b79 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/f77-edit-i-in.f
+++ b/gcc/testsuite/gfortran.dg/g77/f77-edit-i-in.f
@@ -4,6 +4,8 @@ C
  C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
  C
  C { dg-do run }
+C { dg-options "-std=legacy" }
+C
  
        integer i,j
        character*10 buf
diff --git a/gcc/testsuite/gfortran.dg/g77/f77-edit-t-in.f b/gcc/testsuite/gfortran.dg/g77/f77-edit-t-in.f

index 2314080..524b18e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/f77-edit-t-in.f
+++ b/gcc/testsuite/gfortran.dg/g77/f77-edit-t-in.f
@@ -4,6 +4,8 @@ C
  C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
  C
  C { dg-do run }
+C { dg-options "-std=legacy" }
+C
        integer i,j
        real a,b,c,d,e
        character*32 in
diff --git a/gcc/testsuite/gfortran.dg/g77/short.f b/gcc/testsuite/gfortran.dg/g77/short.f

index e9a18a1..330f0ac 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/short.f
+++ b/gcc/testsuite/gfortran.dg/g77/short.f
@@ -1,4 +1,6 @@
  c { dg-do run }
+c { dg-options "-std=legacy" }
+c
        program short
  
        parameter   (   N=2  )
diff --git a/gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f b/gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f

index 551bd61..f9e0195 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f
+++ b/gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! Testing g77 intrinsics as subroutines
        integer(kind=8) i8
        integer i4
diff --git a/gcc/testsuite/gfortran.dg/g77_intrinsics_sub.f b/gcc/testsuite/gfortran.dg/g77_intrinsics_sub.f

index d1591e0..6ee5f83 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77_intrinsics_sub.f
+++ b/gcc/testsuite/gfortran.dg/g77_intrinsics_sub.f
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! Testing g77 intrinsics as subroutines
        integer(kind=8) i8, j8
        integer i4, j4
diff --git a/gcc/testsuite/gfortran.dg/global_references_2.f90 b/gcc/testsuite/gfortran.dg/global_references_2.f90

index 9566698..bf25280 100644 (file)
--- a/gcc/testsuite/gfortran.dg/global_references_2.f90
+++ b/gcc/testsuite/gfortran.dg/global_references_2.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! This program tests the patch for PR25964. This is a
  ! regression that would not allow a common block and a statement
  ! to share the same name.
@@ -7,4 +9,5 @@
    common /foo/ a, b, c
    foo (x) = x + 1.0
    print *, foo (0.0)
-  end
-\ No newline at end of file
+  end
+
diff --git a/gcc/testsuite/gfortran.dg/hollerith.f90 b/gcc/testsuite/gfortran.dg/hollerith.f90

index 21cbf66..697ed22 100644 (file)
--- a/gcc/testsuite/gfortran.dg/hollerith.f90
+++ b/gcc/testsuite/gfortran.dg/hollerith.f90
@@ -3,14 +3,14 @@
  implicit none
  complex(kind=8) x(2) 
  complex a(2,2)
-character*4 z
+character(4) z
  character z1(4)
-character*4 z2(2,2)
-character*80 line
+character(4) z2(2,2)
+character(80) line
  integer i
  integer j
  real r
-character*8 c
+character(8) c
  
  data x /16Habcdefghijklmnop, 16Hqrstuvwxyz012345/
  data a /8H(i3),abc, 0, 4H(i4), 8H    (i9)/
@@ -53,7 +53,7 @@ end
  
  subroutine test (h)
  integer(kind=8) h
-character*80 line
+character(80) line
  
  write (line, '(8a)') h
  if (line .ne. '   hello') call abort
diff --git a/gcc/testsuite/gfortran.dg/hollerith_1.f90 b/gcc/testsuite/gfortran.dg/hollerith_1.f90

index d6732d4..829ca7f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/hollerith_1.f90
+++ b/gcc/testsuite/gfortran.dg/hollerith_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR 21260
  ! We wrongly interpreted the '!' as the beginning of a comment.
  ! Also verifies the functioning of hollerith formatting.
diff --git a/gcc/testsuite/gfortran.dg/hollerith_f95.f90 b/gcc/testsuite/gfortran.dg/hollerith_f95.f90

index 4d7fda8..dc52187 100644 (file)
--- a/gcc/testsuite/gfortran.dg/hollerith_f95.f90
+++ b/gcc/testsuite/gfortran.dg/hollerith_f95.f90
@@ -4,14 +4,14 @@
  implicit none
  complex(kind=8) x(2) 
  complex a(2,2)
-character*4 z
+character(4) z
  character z1(4)
-character*4 z2(2,2)
-character*80 line
+character(4) z2(2,2)
+character(80) line
  integer i
  logical l
  real r
-character*8 c
+character(8) c
  
  data x /16Habcdefghijklmnop, 16Hqrstuvwxyz012345/
  data a /8H(i3),abc, 0, 4H(i4), 8H    (i9)/
@@ -54,7 +54,7 @@ end
  
  subroutine test (h)
  integer(kind=8) h
-character*80 line
+character(80) line
  
  write (line, '(8a)') h
  if (line .ne. '   hello') call abort
diff --git a/gcc/testsuite/gfortran.dg/ichar_1.f90 b/gcc/testsuite/gfortran.dg/ichar_1.f90

index 104c5d1..362cd2f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/ichar_1.f90
+++ b/gcc/testsuite/gfortran.dg/ichar_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! PR20879
  ! Check that we reject expressions longer than one character for the
  ! ICHAR and IACHAR intrinsics.
diff --git a/gcc/testsuite/gfortran.dg/implicit_6.f90 b/gcc/testsuite/gfortran.dg/implicit_6.f90

index bb7fe32..a74ecc2 100644 (file)
--- a/gcc/testsuite/gfortran.dg/implicit_6.f90
+++ b/gcc/testsuite/gfortran.dg/implicit_6.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! PR 24643
  ! substring references on implicitly typed CHARACTER variables didn't work
          PROGRAM P
diff --git a/gcc/testsuite/gfortran.dg/implicit_9.f90 b/gcc/testsuite/gfortran.dg/implicit_9.f90

index 335c85b..04b7afa 100644 (file)
--- a/gcc/testsuite/gfortran.dg/implicit_9.f90
+++ b/gcc/testsuite/gfortran.dg/implicit_9.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! Tests patch for PR29373, in which the implicit character
  ! statement messes up the function declaration because the
  ! requisite functions in decl.c were told nothing about
diff --git a/gcc/testsuite/gfortran.dg/inquire.f90 b/gcc/testsuite/gfortran.dg/inquire.f90

index 9f3b725..7115913 100644 (file)
--- a/gcc/testsuite/gfortran.dg/inquire.f90
+++ b/gcc/testsuite/gfortran.dg/inquire.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! check to see that you cannot open a direct access file
  ! for sequential i/o.
  ! derived from NIST test fm910.for
diff --git a/gcc/testsuite/gfortran.dg/inquire_13.f90 b/gcc/testsuite/gfortran.dg/inquire_13.f90

index 366e383..d074861 100644 (file)
--- a/gcc/testsuite/gfortran.dg/inquire_13.f90
+++ b/gcc/testsuite/gfortran.dg/inquire_13.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR34795 inquire statement , direct= specifier incorrectly returns YES
  ! Test case from PR, modified by Jerry DeLisle  <jvdelisle@gcc.gnu.org
  program testinquire
diff --git a/gcc/testsuite/gfortran.dg/inquire_5.f90 b/gcc/testsuite/gfortran.dg/inquire_5.f90

index b2e07be..fe107a1 100644 (file)
--- a/gcc/testsuite/gfortran.dg/inquire_5.f90
+++ b/gcc/testsuite/gfortran.dg/inquire_5.f90
@@ -1,4 +1,6 @@
  ! { dg-do run { target fd_truncate } }
+! { dg-options "-std=legacy" }
+!
  ! pr19314 inquire(..position=..) segfaults
  ! test by Thomas.Koenig@online.de
  !         bdavis9659@comcast.net
diff --git a/gcc/testsuite/gfortran.dg/inquire_6.f90 b/gcc/testsuite/gfortran.dg/inquire_6.f90

index 7575b6e..b657df8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/inquire_6.f90
+++ b/gcc/testsuite/gfortran.dg/inquire_6.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  !pr19313 - inquire(..pad=..)
        implicit none
  !     logical debug
diff --git a/gcc/testsuite/gfortran.dg/io_constraints_1.f90 b/gcc/testsuite/gfortran.dg/io_constraints_1.f90

index 5f2c776..db1e949 100644 (file)
--- a/gcc/testsuite/gfortran.dg/io_constraints_1.f90
+++ b/gcc/testsuite/gfortran.dg/io_constraints_1.f90
@@ -29,7 +29,7 @@ end module global
   use global
   integer :: a,b, c(20)
   integer(8) :: ierr
- character*80 :: buffer(3)
+ character(80) :: buffer(3)
  
  ! Appending to a USE associated namelist is an extension.
  
diff --git a/gcc/testsuite/gfortran.dg/io_constraints_2.f90 b/gcc/testsuite/gfortran.dg/io_constraints_2.f90

index 8bf48d7..8d3ae6b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/io_constraints_2.f90
+++ b/gcc/testsuite/gfortran.dg/io_constraints_2.f90
@@ -25,7 +25,7 @@ end module global
   use global
   integer :: a,b, c(20)
   integer(8) :: ierr
- character*80 :: buffer(3)
+ character(80) :: buffer(3)
  
  
  ! Appending to a USE associated namelist is an extension.
diff --git a/gcc/testsuite/gfortran.dg/list_read_2.f90 b/gcc/testsuite/gfortran.dg/list_read_2.f90

index e757f61..3e6c233 100644 (file)
--- a/gcc/testsuite/gfortran.dg/list_read_2.f90
+++ b/gcc/testsuite/gfortran.dg/list_read_2.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR16805
  ! Test list directed reads from character substrings
  ! The IO library was reporting an error rather the end-of-record when it
diff --git a/gcc/testsuite/gfortran.dg/loc_2.f90 b/gcc/testsuite/gfortran.dg/loc_2.f90

index 196dcc6..d905fc0 100644 (file)
--- a/gcc/testsuite/gfortran.dg/loc_2.f90
+++ b/gcc/testsuite/gfortran.dg/loc_2.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Series of routines for testing a loc() implementation
  program test
    common /errors/errors(12)
diff --git a/gcc/testsuite/gfortran.dg/logical_1.f90 b/gcc/testsuite/gfortran.dg/logical_1.f90

index 3edc744..69d9e6a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/logical_1.f90
+++ b/gcc/testsuite/gfortran.dg/logical_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR middle-end/19543
  program logical_1
    implicit none
diff --git a/gcc/testsuite/gfortran.dg/longline.f b/gcc/testsuite/gfortran.dg/longline.f

index ffd5a4b..c2a5f5a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/longline.f
+++ b/gcc/testsuite/gfortran.dg/longline.f
@@ -1,5 +1,6 @@
  # 1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa.f"
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
  
        subroutine foo
        character*10 cpnam
diff --git a/gcc/testsuite/gfortran.dg/merge_char_1.f90 b/gcc/testsuite/gfortran.dg/merge_char_1.f90

index 0a8036d..5974e8c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/merge_char_1.f90
+++ b/gcc/testsuite/gfortran.dg/merge_char_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR 15327
  ! The merge intrinsic didn't work for strings
  character*2 :: c(2)
diff --git a/gcc/testsuite/gfortran.dg/namelist_12.f b/gcc/testsuite/gfortran.dg/namelist_12.f

index dca9645..1752bfa 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_12.f
+++ b/gcc/testsuite/gfortran.dg/namelist_12.f
@@ -1,4 +1,6 @@
  c{ dg-do run { target fd_truncate } }
+c{ dg-options "-std=legacy" }
+c
  c This program repeats many of the same tests as test_nml_1 but for integer
  c instead of real. It also tests repeat nulls, comma delimited character read,
  c a triplet qualifier, a range with an assumed start, a quote delimited string,
diff --git a/gcc/testsuite/gfortran.dg/namelist_14.f90 b/gcc/testsuite/gfortran.dg/namelist_14.f90

index 729f1b2..478e07f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_14.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_14.f90
@@ -1,4 +1,6 @@
  !{ dg-do run }
+!{ dg-options "-std=legacy" }
+!
  ! Tests various combinations of intrinsic types, derived types, arrays,
  ! dummy arguments and common to check nml_get_addr_expr in trans-io.c.
  ! See comments below for selection.
diff --git a/gcc/testsuite/gfortran.dg/namelist_18.f90 b/gcc/testsuite/gfortran.dg/namelist_18.f90

index d54d91f..87b6601 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_18.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_18.f90
@@ -1,4 +1,6 @@
  !{ dg-do run }
+!{ dg-options "-std=legacy" }
+!
  ! Tests character delimiters for namelist write 
  ! provided by Paul Thomas - pault@gcc.gnu.org
  
diff --git a/gcc/testsuite/gfortran.dg/namelist_19.f90 b/gcc/testsuite/gfortran.dg/namelist_19.f90

index c06abf5..4821033 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_19.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_19.f90
@@ -1,4 +1,6 @@
  !{ dg-do run }
+!{ dg-options "-std=legacy" }
+!
  ! Test namelist error trapping.
  ! provided by Paul Thomas - pault@gcc.gnu.org
  
diff --git a/gcc/testsuite/gfortran.dg/namelist_21.f90 b/gcc/testsuite/gfortran.dg/namelist_21.f90

index 8d2852d..de88200 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_21.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_21.f90
@@ -1,4 +1,6 @@
  !{ dg-do run { target fd_truncate } }
+!{ dg-options "-std=legacy" }
+!
  ! Tests filling arrays from a namelist read when object list is not complete.
  ! Developed from a test case provided by Christoph Jacob.
  ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>.
diff --git a/gcc/testsuite/gfortran.dg/namelist_22.f90 b/gcc/testsuite/gfortran.dg/namelist_22.f90

index 3119e80..e877b5b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_22.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_22.f90
@@ -1,4 +1,6 @@
  !{ dg-do run { target fd_truncate } }
+!{ dg-options "-std=legacy" }
+!
  ! Tests filling arrays from a namelist read when object list is not complete.
  ! This is the same as namelist_21.f90 except using spaces as seperators instead
  ! of commas. Developed from a test case provided by Christoph Jacob.
diff --git a/gcc/testsuite/gfortran.dg/namelist_37.f90 b/gcc/testsuite/gfortran.dg/namelist_37.f90

index 9ff6297..4a46b53 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_37.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_37.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR33039 Read NAMELIST:  reads wrong namelist name
  ! Test case from PR modified by Jerry DeLisle <jvdelisle@gcc.gnu.org>\r
  PROGRAM namelist\r
diff --git a/gcc/testsuite/gfortran.dg/namelist_54.f90 b/gcc/testsuite/gfortran.dg/namelist_54.f90

index 25061c4..0133268 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_54.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_54.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR37707 Namelist read of array of derived type incorrect.
  type s
     integer m
diff --git a/gcc/testsuite/gfortran.dg/namelist_55.f90 b/gcc/testsuite/gfortran.dg/namelist_55.f90

index 20c7a21..9690d85 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_55.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_55.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR37707 Namelist read of array of derived type incorrect
  ! Test case from PR, prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
  TYPE geometry
diff --git a/gcc/testsuite/gfortran.dg/namelist_empty.f90 b/gcc/testsuite/gfortran.dg/namelist_empty.f90

index 12e72ae..89493a8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_empty.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_empty.f90
@@ -1,3 +1,6 @@
+! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! pr24584, segfault on namelist reading an empty string
  ! Contributed by Jerry DeLisle  <jvdelisle@verizon.net> 
        implicit none 
diff --git a/gcc/testsuite/gfortran.dg/namelist_use.f90 b/gcc/testsuite/gfortran.dg/namelist_use.f90

index 0460630..d550e00 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_use.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_use.f90
@@ -6,7 +6,7 @@
  ! Contributed by Paul Thomas  pault@gcc.gnu.org
  !
  module global
-  character*4 :: aa
+  character(4) :: aa
    integer :: ii
    real    :: rr
    namelist /nml1/ aa, ii, rr
diff --git a/gcc/testsuite/gfortran.dg/namelist_use_only.f90 b/gcc/testsuite/gfortran.dg/namelist_use_only.f90

index a9adf01..d9a28a8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_use_only.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_use_only.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! This tests the fix for PR22010, where namelists were not being written to
  ! and read back from modules.  It checks that namelists from modules that are
  ! selected by an ONLY declaration work correctly, even when the variables in
diff --git a/gcc/testsuite/gfortran.dg/nested_modules_4.f90 b/gcc/testsuite/gfortran.dg/nested_modules_4.f90

index dde171c..6be77b3 100644 (file)
--- a/gcc/testsuite/gfortran.dg/nested_modules_4.f90
+++ b/gcc/testsuite/gfortran.dg/nested_modules_4.f90
@@ -1,4 +1,5 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
  !
  ! Test for the fix to PR24409 - the name clash between the module
  ! name and the interface formal argument would cause an ICE.
diff --git a/gcc/testsuite/gfortran.dg/nested_modules_5.f90 b/gcc/testsuite/gfortran.dg/nested_modules_5.f90

index 86b43fd..2ed6824 100644 (file)
--- a/gcc/testsuite/gfortran.dg/nested_modules_5.f90
+++ b/gcc/testsuite/gfortran.dg/nested_modules_5.f90
@@ -1,4 +1,5 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
  !
  ! Test for supplementary fix to PR24409 - the name clash between the module
  ! variable and the interface formal argument would cause an ICE.
diff --git a/gcc/testsuite/gfortran.dg/open-options-blanks.f b/gcc/testsuite/gfortran.dg/open-options-blanks.f

index 8f5faa4..4db31b9 100644 (file)
--- a/gcc/testsuite/gfortran.dg/open-options-blanks.f
+++ b/gcc/testsuite/gfortran.dg/open-options-blanks.f
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR 20163, first half:  Trailing blanks on an option to
  !                        open used to cause an error
        CHARACTER*8 ST
diff --git a/gcc/testsuite/gfortran.dg/output_exponents_1.f90 b/gcc/testsuite/gfortran.dg/output_exponents_1.f90

index b645e62..db47b0b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/output_exponents_1.f90
+++ b/gcc/testsuite/gfortran.dg/output_exponents_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR 21376
  ! we used to take the logarithm of zero in this special case
    character*10 c
diff --git a/gcc/testsuite/gfortran.dg/parens_5.f90 b/gcc/testsuite/gfortran.dg/parens_5.f90

index a6e64b4..ac631ef 100644 (file)
--- a/gcc/testsuite/gfortran.dg/parens_5.f90
+++ b/gcc/testsuite/gfortran.dg/parens_5.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Another case of fallout from the original patch for PR14771
  ! Testcase by Erik Zeek
  module para
diff --git a/gcc/testsuite/gfortran.dg/parens_6.f90 b/gcc/testsuite/gfortran.dg/parens_6.f90

index 5a888a6..6d5ee3b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/parens_6.f90
+++ b/gcc/testsuite/gfortran.dg/parens_6.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR fortran/33626
  ! Types were not always propagated correctly
    logical(kind=1) :: i, j
diff --git a/gcc/testsuite/gfortran.dg/parent_result_ref_2.f90 b/gcc/testsuite/gfortran.dg/parent_result_ref_2.f90

index 2409cb4..38a5fdc 100644 (file)
--- a/gcc/testsuite/gfortran.dg/parent_result_ref_2.f90
+++ b/gcc/testsuite/gfortran.dg/parent_result_ref_2.f90
@@ -16,7 +16,7 @@ contains
    end subroutine sub
  end function f
  
-function g()              ! { dg-warning "is obsolescent in fortran 95" }
+function g()              ! { dg-warning "Obsolescent feature" }
    character(*) :: g
    g = "efgh"
    call sub ()
diff --git a/gcc/testsuite/gfortran.dg/pointer_function_actual_1.f90 b/gcc/testsuite/gfortran.dg/pointer_function_actual_1.f90

index b3cb272..0924117 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pointer_function_actual_1.f90
+++ b/gcc/testsuite/gfortran.dg/pointer_function_actual_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Tests the fix for PR31209, in which an ICE would result because
  ! the reference to the pointer function f would be indirected, as
  ! if it were the result that is being passed.
diff --git a/gcc/testsuite/gfortran.dg/pr15129.f90 b/gcc/testsuite/gfortran.dg/pr15129.f90

index f9a277c..df3854d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr15129.f90
+++ b/gcc/testsuite/gfortran.dg/pr15129.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR 15129: we used to share the character length between A and B in the 
  ! subroutine.
  CHARACTER*10 A
diff --git a/gcc/testsuite/gfortran.dg/pr15332.f b/gcc/testsuite/gfortran.dg/pr15332.f

index 309b59e..813e301 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr15332.f
+++ b/gcc/testsuite/gfortran.dg/pr15332.f
@@ -1,5 +1,7 @@
  ! PR libfortran/15332
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
        character*12 c
  
        write (c,100) 0, 1
diff --git a/gcc/testsuite/gfortran.dg/pr16597.f90 b/gcc/testsuite/gfortran.dg/pr16597.f90

index 071bf86..c291474 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr16597.f90
+++ b/gcc/testsuite/gfortran.dg/pr16597.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! pr 16597
  ! libgfortran
  ! reading a direct access record after it was written did
diff --git a/gcc/testsuite/gfortran.dg/pr17143.f90 b/gcc/testsuite/gfortran.dg/pr17143.f90

index 1c171a3..4423eab 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr17143.f90
+++ b/gcc/testsuite/gfortran.dg/pr17143.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! pr17143
  ! does not print 2*63 correctly
         character*25 l
diff --git a/gcc/testsuite/gfortran.dg/pr17164.f90 b/gcc/testsuite/gfortran.dg/pr17164.f90

index a0dfff9..c9b4d45 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr17164.f90
+++ b/gcc/testsuite/gfortran.dg/pr17164.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! pr17164
  ! index aborts when substring is longer than string
        implicit none
diff --git a/gcc/testsuite/gfortran.dg/pr17229.f b/gcc/testsuite/gfortran.dg/pr17229.f

index da780d7..65f72b0 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr17229.f
+++ b/gcc/testsuite/gfortran.dg/pr17229.f
@@ -1,22 +1,23 @@
  ! PR fortran/17229
  ! { dg-do run }
+
        integer i
        logical l
  
        l = .false.
        i = -1
-      if (l) if (i) 999,999,999 ! { dg-warning "Obsolescent: arithmetic IF statement" }
+      if (l) if (i) 999,999,999 ! { dg-warning "Obsolescent feature" }
  
        l = .true.
-      if (l) if (i) 10,999,999 ! { dg-warning "Obsolescent: arithmetic IF statement" }
+      if (l) if (i) 10,999,999 ! { dg-warning "Obsolescent feature" }
        go to 999
  
     10 i = 0
-      if (l) if (i) 999,20,999 ! { dg-warning "Obsolescent: arithmetic IF statement" }
+      if (l) if (i) 999,20,999 ! { dg-warning "Obsolescent feature" }
        go to 999
  
     20 i = 1
-      if (l) if (i) 999,999,30 ! { dg-warning "Obsolescent: arithmetic IF statement" }
+      if (l) if (i) 999,999,30 ! { dg-warning "Obsolescent feature" }
        go to 999
  
    999 call abort
diff --git a/gcc/testsuite/gfortran.dg/pr18210.f90 b/gcc/testsuite/gfortran.dg/pr18210.f90

index 6095984..85c5afa 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr18210.f90
+++ b/gcc/testsuite/gfortran.dg/pr18210.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Names in upper case and object names starting column 2
  ! Based on example provided by thomas.koenig@online.de
  
diff --git a/gcc/testsuite/gfortran.dg/pr19155.f b/gcc/testsuite/gfortran.dg/pr19155.f

index 6387c3f..770b008 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr19155.f
+++ b/gcc/testsuite/gfortran.dg/pr19155.f
@@ -1,4 +1,5 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
  !
  ! PR libfortran/19155
  ! We accept 'E+00' as a valid real number. The standard says it is not,
diff --git a/gcc/testsuite/gfortran.dg/pr20086.f90 b/gcc/testsuite/gfortran.dg/pr20086.f90

index e5759da..26b5327 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr20086.f90
+++ b/gcc/testsuite/gfortran.dg/pr20086.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }     
+! { dg-options "-std=legacy" }
+!
  ! PR 20086 - Missing characters in output with hollerith strings
        implicit none
        character*80 line
diff --git a/gcc/testsuite/gfortran.dg/pr20124.f90 b/gcc/testsuite/gfortran.dg/pr20124.f90

index 69f4f18..5d05abf 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr20124.f90
+++ b/gcc/testsuite/gfortran.dg/pr20124.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! pr 20124
        character*80 line
        x = -.01
diff --git a/gcc/testsuite/gfortran.dg/pr20755.f b/gcc/testsuite/gfortran.dg/pr20755.f

index e2bac5a..4a9b69c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr20755.f
+++ b/gcc/testsuite/gfortran.dg/pr20755.f
@@ -1,5 +1,7 @@
  ! PR libfortran/20755
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
        character*30 s
        
        write (s,2000) 0.0, 0.02
diff --git a/gcc/testsuite/gfortran.dg/pr20865.f90 b/gcc/testsuite/gfortran.dg/pr20865.f90

index 96d0d79..5c26965 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr20865.f90
+++ b/gcc/testsuite/gfortran.dg/pr20865.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! PR fortran/20865
    subroutine tt(j)
     integer :: j
diff --git a/gcc/testsuite/gfortran.dg/pr20950.f b/gcc/testsuite/gfortran.dg/pr20950.f

index c132548..942696c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr20950.f
+++ b/gcc/testsuite/gfortran.dg/pr20950.f
@@ -1,6 +1,8 @@
  ! PR libfortran/20950
  ! Original bug-report by Walt Brainerd, The Fortran Company
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
        character*20 c
        inquire (33, sequential = c)
        if (c .ne. "UNKNOWN") call abort
diff --git a/gcc/testsuite/gfortran.dg/pr21730.f b/gcc/testsuite/gfortran.dg/pr21730.f

index 9542c02..1fe19ed 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr21730.f
+++ b/gcc/testsuite/gfortran.dg/pr21730.f
@@ -1,5 +1,7 @@
  ! PR fortran/21730
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
        character*2 a
        character*4 b
        character*6 c
diff --git a/gcc/testsuite/gfortran.dg/pr22491.f b/gcc/testsuite/gfortran.dg/pr22491.f

index 1cd3557..70210f6 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr22491.f
+++ b/gcc/testsuite/gfortran.dg/pr22491.f
@@ -1,5 +1,7 @@
  ! PR fortran/21730
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
        character*2 a (1)
        character*4 b (1)
        character*6 c
diff --git a/gcc/testsuite/gfortran.dg/pr29713.f90 b/gcc/testsuite/gfortran.dg/pr29713.f90

index be4accd..e609043 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr29713.f90
+++ b/gcc/testsuite/gfortran.dg/pr29713.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
        character*2 a
        character*4 b
        parameter (a="12")
diff --git a/gcc/testsuite/gfortran.dg/print_parentheses_1.f b/gcc/testsuite/gfortran.dg/print_parentheses_1.f

index 26041c7..d644483 100644 (file)
--- a/gcc/testsuite/gfortran.dg/print_parentheses_1.f
+++ b/gcc/testsuite/gfortran.dg/print_parentheses_1.f
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
        program main
        character*80 line
        print (line,'(A)'), 'hello' ! { dg-error "Syntax error" }
diff --git a/gcc/testsuite/gfortran.dg/print_parentheses_2.f90 b/gcc/testsuite/gfortran.dg/print_parentheses_2.f90

index 699f507..520973e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/print_parentheses_2.f90
+++ b/gcc/testsuite/gfortran.dg/print_parentheses_2.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  program main
    character*80 line
    print (line,'(A)'), 'hello' ! { dg-error "Syntax error" }
diff --git a/gcc/testsuite/gfortran.dg/proc_assign_1.f90 b/gcc/testsuite/gfortran.dg/proc_assign_1.f90

index 919089a..e85df76 100644 (file)
--- a/gcc/testsuite/gfortran.dg/proc_assign_1.f90
+++ b/gcc/testsuite/gfortran.dg/proc_assign_1.f90
@@ -1,4 +1,6 @@
-! { dg-do compile }\r
+! { dg-do compile }
+! { dg-options "-std=legacy" }
+!\r
  ! This tests the patch for PR26787 in which it was found that setting\r
  ! the result of one module procedure from within another produced an\r
  ! ICE rather than an error.\r
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_1.f90 b/gcc/testsuite/gfortran.dg/proc_decl_1.f90

index c7ec4f2..de7cb41 100644 (file)
--- a/gcc/testsuite/gfortran.dg/proc_decl_1.f90
+++ b/gcc/testsuite/gfortran.dg/proc_decl_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! This tests various error messages for PROCEDURE declarations.
  ! Contributed by Janus Weil <jaydub66@gmail.com>
  
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_17.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_17.f90

index 20e059f..55b8bce 100644 (file)
--- a/gcc/testsuite/gfortran.dg/proc_ptr_17.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_17.f90
@@ -6,7 +6,7 @@
  ! Contributed by Tobias Burnus <burnus@net-b.de>
  
    procedure(), pointer :: p
-  f(x) = x**2
+  f(x) = x**2  ! { dg-warning "Obsolescent feature" }
    p => f  ! { dg-error "invalid in procedure pointer assignment" }
    p => sub  ! { dg-error "invalid in procedure pointer assignment" }
  contains
diff --git a/gcc/testsuite/gfortran.dg/read_eor.f90 b/gcc/testsuite/gfortran.dg/read_eor.f90

index f332755..e6c849e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/read_eor.f90
+++ b/gcc/testsuite/gfortran.dg/read_eor.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR24489 Assure that read does not go past the end of record. The width of
  ! the format specifier is 8, but the internal unit record length is 4 so only
  ! the first 4 characters should be read.
diff --git a/gcc/testsuite/gfortran.dg/read_float_1.f90 b/gcc/testsuite/gfortran.dg/read_float_1.f90

index 86589c0..0848ee6 100644 (file)
--- a/gcc/testsuite/gfortran.dg/read_float_1.f90
+++ b/gcc/testsuite/gfortran.dg/read_float_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR18218
  ! The IO library has an algorithm that involved repeated multiplication by 10,
  ! resulting in introducing large cumulative floating point errors.
diff --git a/gcc/testsuite/gfortran.dg/read_logical.f90 b/gcc/testsuite/gfortran.dg/read_logical.f90

index 1e74c8e..7b7ba8c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/read_logical.f90
+++ b/gcc/testsuite/gfortran.dg/read_logical.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR 26554 : Test logical read from string. Test case derived from PR.
  ! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
  program bug
@@ -13,4 +15,4 @@ program bug
    read (strg,*) l
    if (.not.l) call abort()
    end
-      
-\ No newline at end of file
+
diff --git a/gcc/testsuite/gfortran.dg/recursive_statement_functions.f90 b/gcc/testsuite/gfortran.dg/recursive_statement_functions.f90

index 8f9b091..bcf51f8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/recursive_statement_functions.f90
+++ b/gcc/testsuite/gfortran.dg/recursive_statement_functions.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! PR20866 - A statement function cannot be recursive.
  ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
  !
diff --git a/gcc/testsuite/gfortran.dg/return_1.f90 b/gcc/testsuite/gfortran.dg/return_1.f90

index a66b4c1..a8067b0 100644 (file)
--- a/gcc/testsuite/gfortran.dg/return_1.f90
+++ b/gcc/testsuite/gfortran.dg/return_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! Test cases where no blank is required after RETURN
  subroutine sub(*)
  return(1)
diff --git a/gcc/testsuite/gfortran.dg/rewind_1.f90 b/gcc/testsuite/gfortran.dg/rewind_1.f90

index cbd2ef1..92edf6d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/rewind_1.f90
+++ b/gcc/testsuite/gfortran.dg/rewind_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Check that rewind doesn't delete a file.
  ! Writing to the file truncates it at the end of the current record.  Out
  ! IO library was defering the actual truncation until the file was rewound.
diff --git a/gcc/testsuite/gfortran.dg/runtime_warning_1.f90 b/gcc/testsuite/gfortran.dg/runtime_warning_1.f90

index 6af85c3..cff9eae 100644 (file)
--- a/gcc/testsuite/gfortran.dg/runtime_warning_1.f90
+++ b/gcc/testsuite/gfortran.dg/runtime_warning_1.f90
@@ -5,7 +5,7 @@
  ! { dg-options "-pedantic" }
  ! { dg-do run }
  !
-     character*5 c
+     character(5) c
       open (42,status='scratch')
       write (42,'(A,$)') 'abc' ! { dg-warning ".*descriptor" "" }
       write (42,'(A)') 'de'
diff --git a/gcc/testsuite/gfortran.dg/scalar_return_1.f90 b/gcc/testsuite/gfortran.dg/scalar_return_1.f90

index d7583bc..df20645 100644 (file)
--- a/gcc/testsuite/gfortran.dg/scalar_return_1.f90
+++ b/gcc/testsuite/gfortran.dg/scalar_return_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! tests the fix for pr25082 in which the return of an array by a
  ! subroutine went undremarked.
  !
diff --git a/gcc/testsuite/gfortran.dg/stfunc_1.f90 b/gcc/testsuite/gfortran.dg/stfunc_1.f90

index e21f34e..46dde62 100644 (file)
--- a/gcc/testsuite/gfortran.dg/stfunc_1.f90
+++ b/gcc/testsuite/gfortran.dg/stfunc_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! this is a problem which disappeared between 2005-01-02 and 2005-03-13
  ! PR 18600
        logical a, b
diff --git a/gcc/testsuite/gfortran.dg/stfunc_3.f90 b/gcc/testsuite/gfortran.dg/stfunc_3.f90

index 42eedf8..90980a9 100644 (file)
--- a/gcc/testsuite/gfortran.dg/stfunc_3.f90
+++ b/gcc/testsuite/gfortran.dg/stfunc_3.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! Tests the fix for PR20867 in which implicit typing was not done within
  ! statement functions and so was not confirmed or not by subsequent
  ! type delarations.
diff --git a/gcc/testsuite/gfortran.dg/stfunc_4.f90 b/gcc/testsuite/gfortran.dg/stfunc_4.f90

index e995fb8..2f0efcc 100644 (file)
--- a/gcc/testsuite/gfortran.dg/stfunc_4.f90
+++ b/gcc/testsuite/gfortran.dg/stfunc_4.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Tests the fix for PR29389, in which the  statement function would not be
  ! recognised as PURE within a PURE procedure.
  
diff --git a/gcc/testsuite/gfortran.dg/stfunc_6.f90 b/gcc/testsuite/gfortran.dg/stfunc_6.f90

index c565783..482d125 100644 (file)
--- a/gcc/testsuite/gfortran.dg/stfunc_6.f90
+++ b/gcc/testsuite/gfortran.dg/stfunc_6.f90
@@ -1,4 +1,6 @@
  ! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
  ! Tests the fix for the second bit of PR29389, in which the
  ! statement function would not be recognised as not PURE
  ! when it referenced a procedure that is not PURE.
diff --git a/gcc/testsuite/gfortran.dg/streamio_2.f90 b/gcc/testsuite/gfortran.dg/streamio_2.f90

index a7d5d3c..8260a74 100644 (file)
--- a/gcc/testsuite/gfortran.dg/streamio_2.f90
+++ b/gcc/testsuite/gfortran.dg/streamio_2.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR25828 Stream IO test 2
  ! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
  PROGRAM readUstream
@@ -16,4 +18,5 @@ PROGRAM readUstream
    if (string.ne."rst") call abort()
    if (n.ne.7) call abort()
    close(unit=11, status="delete")
-END PROGRAM readUstream
-\ No newline at end of file
+END PROGRAM readUstream
+
diff --git a/gcc/testsuite/gfortran.dg/string_ctor_1.f90 b/gcc/testsuite/gfortran.dg/string_ctor_1.f90

index 3242ea8..7e5c2f9 100644 (file)
--- a/gcc/testsuite/gfortran.dg/string_ctor_1.f90
+++ b/gcc/testsuite/gfortran.dg/string_ctor_1.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Program to test character array constructors.
  ! PR17144
  subroutine test1 (n, t, u)
diff --git a/gcc/testsuite/gfortran.dg/string_null_compare_1.f b/gcc/testsuite/gfortran.dg/string_null_compare_1.f

index 2e6eb1b..659b3eb 100644 (file)
--- a/gcc/testsuite/gfortran.dg/string_null_compare_1.f
+++ b/gcc/testsuite/gfortran.dg/string_null_compare_1.f
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! PR 27784 - Different strings should compare unequal even if they
  !            have CHAR(0) in them.
  
diff --git a/gcc/testsuite/gfortran.dg/substr_6.f90 b/gcc/testsuite/gfortran.dg/substr_6.f90

index ee0eae4..813a025 100644 (file)
--- a/gcc/testsuite/gfortran.dg/substr_6.f90
+++ b/gcc/testsuite/gfortran.dg/substr_6.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }
+! { dg-options "-std=legacy" }
+!
  ! Check that NULs don't mess up constant substring simplification
  CHARACTER(5), parameter :: c0(1) = (/ "123" // ACHAR(0) // "5" /)
  CHARACTER*5 c(1)
diff --git a/gcc/testsuite/gfortran.dg/tl_editing.f90 b/gcc/testsuite/gfortran.dg/tl_editing.f90

index d2a7ede..830c7eb 100644 (file)
--- a/gcc/testsuite/gfortran.dg/tl_editing.f90
+++ b/gcc/testsuite/gfortran.dg/tl_editing.f90
@@ -1,4 +1,6 @@
  ! { dg-do run }     
+! { dg-options "-std=legacy" }
+!
  ! Test of fix to bug triggered by NIST fm908.for.
  ! Left tabbing, followed by X or T-tabbing to the right would
  ! cause spaces to be overwritten on output data.
diff --git a/gcc/testsuite/gfortran.dg/unf_io_convert_1.f90 b/gcc/testsuite/gfortran.dg/unf_io_convert_1.f90

index 3d35312..3176569 100644 (file)
--- a/gcc/testsuite/gfortran.dg/unf_io_convert_1.f90
+++ b/gcc/testsuite/gfortran.dg/unf_io_convert_1.f90
@@ -16,7 +16,7 @@ program main
    integer n
    real r(size)
    integer i
-  character*4 str
+  character(4) str
  
    m(1) = Z'11223344' ! { dg-warning "BOZ literal at .1. outside a DATA statement" }
    m(2) = Z'55667788' ! { dg-warning "BOZ literal at .1. outside a DATA statement" }
diff --git a/gcc/testsuite/gfortran.dg/warnings_are_errors_1.f90 b/gcc/testsuite/gfortran.dg/warnings_are_errors_1.f90

index fcbeba5..0a0883c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/warnings_are_errors_1.f90
+++ b/gcc/testsuite/gfortran.dg/warnings_are_errors_1.f90
@@ -5,7 +5,7 @@
  ! free-form tests
  
  ! gfc_notify_std:
-       function char_ (ch) ! { dg-warning "is obsolescent in fortran 95" }
+       function char_ (ch) ! { dg-warning "Obsolescent feature" }
         character(*) :: char_, ch
          char_ = ch
         end function char_
diff --git a/gcc/testsuite/gfortran.dg/x_slash_1.f b/gcc/testsuite/gfortran.dg/x_slash_1.f

index de576e2..435e461 100644 (file)
--- a/gcc/testsuite/gfortran.dg/x_slash_1.f
+++ b/gcc/testsuite/gfortran.dg/x_slash_1.f
@@ -1,4 +1,6 @@
  c { dg-do run { target fd_truncate } }
+c { dg-options "-std=legacy" }
+c
  c This program tests the fixes to PR22570.
  c
  c Provided by Paul Thomas - pault@gcc.gnu.org
author	janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4>
	Sun, 2 Aug 2009 10:58:44 +0000 (10:58 +0000)
committer	janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4>
	Sun, 2 Aug 2009 10:58:44 +0000 (10:58 +0000)
gcc/fortran/ChangeLog		patch \| blob \| history
gcc/fortran/decl.c		patch \| blob \| history
gcc/fortran/match.c		patch \| blob \| history
gcc/fortran/resolve.c		patch \| blob \| history
gcc/testsuite/ChangeLog		patch \| blob \| history
gcc/testsuite/gfortran.dg/aliasing_dummy_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/altreturn_3.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/altreturn_5.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/altreturn_6.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/altreturn_7.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/array_constructor_13.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/arrayio_7.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/arrayio_8.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/assumed_charlen_function_3.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/assumed_charlen_function_4.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/backspace_8.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/backspace_9.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/char_comparison_1.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/char_decl_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/char_initialiser_actual.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/char_pointer_assign.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/char_pointer_dependency.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/char_pointer_dummy.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/char_pointer_func.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/common_8.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/constant_substring.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/data_char_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/der_array_io_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/der_array_io_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/der_array_io_3.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/der_io_3.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/dev_null.F90		patch \| blob \| history
gcc/testsuite/gfortran.dg/direct_io_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/do_iterator_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/e_d_fmt.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/empty_format_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/entry_17.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/entry_7.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/eor_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/equiv_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/equiv_constraint_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/equiv_substr.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/extended_char_comparison_1.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/fmt_bz_bn_err.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/fmt_error_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/fmt_tl.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/fmt_white.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/func_derived_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/1832.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/19981216-0.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/19990525-0.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/19990826-2.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/20000630-2.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/20010116.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/20010519-1.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/980419-2.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/980520-1.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/check0.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/cpp3.F		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/cpp4.F		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/f77-edit-i-in.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/f77-edit-t-in.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77/short.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/g77_intrinsics_sub.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/global_references_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/hollerith.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/hollerith_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/hollerith_f95.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/ichar_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/implicit_6.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/implicit_9.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/inquire.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/inquire_13.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/inquire_5.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/inquire_6.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/io_constraints_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/io_constraints_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/list_read_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/loc_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/logical_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/longline.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/merge_char_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/namelist_12.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/namelist_14.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/namelist_18.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/namelist_19.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/namelist_21.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/namelist_22.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/namelist_37.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/namelist_54.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/namelist_55.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/namelist_empty.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/namelist_use.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/namelist_use_only.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/nested_modules_4.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/nested_modules_5.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/open-options-blanks.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/output_exponents_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/parens_5.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/parens_6.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/parent_result_ref_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/pointer_function_actual_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr15129.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr15332.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr16597.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr17143.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr17164.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr17229.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr18210.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr19155.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr20086.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr20124.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr20755.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr20865.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr20950.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr21730.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr22491.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr29713.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/print_parentheses_1.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/print_parentheses_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/proc_assign_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/proc_decl_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/proc_ptr_17.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/read_eor.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/read_float_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/read_logical.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/recursive_statement_functions.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/return_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/rewind_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/runtime_warning_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/scalar_return_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/stfunc_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/stfunc_3.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/stfunc_4.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/stfunc_6.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/streamio_2.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/string_ctor_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/string_null_compare_1.f		patch \| blob \| history
gcc/testsuite/gfortran.dg/substr_6.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/tl_editing.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/unf_io_convert_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/warnings_are_errors_1.f90		patch \| blob \| history
gcc/testsuite/gfortran.dg/x_slash_1.f		patch \| blob \| history