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-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.
From-SVN: r150349
+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
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;
}
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;
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;
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. */
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
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:
/* 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);
}
+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.
! { 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
write (slist(1,1), '(2hi=,i3)') i
end subroutine foo3
-end program test_lex
\ No newline at end of file
+end program test_lex
+
! { 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.
! { 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.
!
+! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! PR 32938
subroutine r (*)
integer(kind=8) :: i
! { dg-do compile }
+! { dg-options "-std=legacy" }
!
! PR 40848: [4.5 Regression] ICE with alternate returns
!
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! Tests patch for PR29431, which arose from PR29373.
!
! Contributed by Tobias Schlueter <tobi@gcc.gnu.org>
! { 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>.
! { 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>
!\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
! { 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.
!
! 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
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)
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)
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
! { 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
C { dg-do run }
+C { dg-options "-std=legacy" }
+C
C PR 30525 - comparisons with padded spaces were done
C signed.
program main
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! PR32644 "CHARACTER*1, c" produces "Unclassifiable statement"
program f
character*1, c
! { 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
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
program char_pointer_assign\r
! Test character pointer assignments, required\r
! to fix PR18890 and PR21297\r
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
+
! { 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
! { 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
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
+
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
program char_pointer_func
! Test assignments from character pointer functions, required
! to fix PR17192 and PR17202
! { dg-do compile }
+! { dg-options "-std=legacy" }
!
! PR fortran/25062
!
! Simplify constant substring
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
character*2 a
character*4 b
character*6 c
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! Test that getting a character from a
! string data works.
! Test IO of arrays of integers in derived types
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
program main
character* 10000 :: buf1, buf2
! Test IO of arrays in derived type arrays
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
program main
character *1000 buf1, buf2
! Test IO of character arrays in derived types.
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
program main
character*1000 buf1, buf2
type :: foo_type
+! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! PR23843
! Make sure derived type I/O with PRIVATE components works where it's allowed
module m1
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! pr19478 read from /dev/null
! Thomas.Koenig@online.de
#if defined _WIN32
! { dg-do run }
+! { dg-options "-std=legacy" }
!
! this testcase derived from NIST test FM413.FOR
! tests writing direct access files in ascending and descending
! { 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
!
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! Verify that the D format uses 'D' as the exponent character.
! " " " E " " 'E' " " " "
CHARACTER*10 c1, c2
! { 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.
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()
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" }
! { 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!
! { 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
+! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
subroutine broken_equiv1
character*4 h
character*3 i
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
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
! { dg-do compile }
+! { dg-options "-std=legacy" }
!
! PR fortran/34557
!
! { 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.
! { 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
! { 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.
! { 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
! { 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
! { 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>
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! PR 17244
! verifies that functions returning derived type work
module m
c { dg-do run }
+! { dg-options "-std=legacy" }
+!
character*5 string
write(string, *) "a "
if (string .ne. ' a') call abort
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
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
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
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
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
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,
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
& 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)
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
c { dg-do compile }
+c { dg-options "-std=legacy" }
+c
c SEGVs in loop.c with -O2.
character*80 function nxtlin(lun,ierr,itok)
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.
c { dg-do compile }
+c { dg-options "-std=legacy" }
+c
CCC Abort fixed by:
CCC1998-04-21 Jim Wilson <wilson@cygnus.com>
CCC
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'
- ! { 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
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
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
c { dg-do run }
+c { dg-options "-std=legacy" }
+c
program short
parameter ( N=2 )
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! Testing g77 intrinsics as subroutines
integer(kind=8) i8
integer i4
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! Testing g77 intrinsics as subroutines
integer(kind=8) i8, j8
integer i4, j4
! { 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.
common /foo/ a, b, c
foo (x) = x + 1.0
print *, foo (0.0)
- end
\ No newline at end of file
+ end
+
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)/
subroutine test (h)
integer(kind=8) h
-character*80 line
+character(80) line
write (line, '(8a)') h
if (line .ne. ' hello') call abort
! { 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.
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)/
subroutine test (h)
integer(kind=8) h
-character*80 line
+character(80) line
write (line, '(8a)') h
if (line .ne. ' hello') call abort
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! PR20879
! Check that we reject expressions longer than one character for the
! ICHAR and IACHAR intrinsics.
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! PR 24643
! substring references on implicitly typed CHARACTER variables didn't work
PROGRAM P
! { 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
! { 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
! { 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
! { dg-do run { target fd_truncate } }
+! { dg-options "-std=legacy" }
+!
! pr19314 inquire(..position=..) segfaults
! test by Thomas.Koenig@online.de
! bdavis9659@comcast.net
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
!pr19313 - inquire(..pad=..)
implicit none
! logical debug
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.
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.
! { 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
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! Series of routines for testing a loc() implementation
program test
common /errors/errors(12)
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! PR middle-end/19543
program logical_1
implicit none
# 1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa.f"
! { dg-do compile }
+! { dg-options "-std=legacy" }
subroutine foo
character*10 cpnam
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! PR 15327
! The merge intrinsic didn't work for strings
character*2 :: c(2)
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,
!{ 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.
!{ dg-do run }
+!{ dg-options "-std=legacy" }
+!
! Tests character delimiters for namelist write
! provided by Paul Thomas - pault@gcc.gnu.org
!{ dg-do run }
+!{ dg-options "-std=legacy" }
+!
! Test namelist error trapping.
! provided by Paul Thomas - pault@gcc.gnu.org
!{ 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>.
!{ 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.
! { 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
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! PR37707 Namelist read of array of derived type incorrect.
type s
integer m
! { 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
+! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! pr24584, segfault on namelist reading an empty string
! Contributed by Jerry DeLisle <jvdelisle@verizon.net>
implicit none
! 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
! { 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
! { 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.
! { 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.
! { 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
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! PR 21376
! we used to take the logarithm of zero in this special case
character*10 c
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! Another case of fallout from the original patch for PR14771
! Testcase by Erik Zeek
module para
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! PR fortran/33626
! Types were not always propagated correctly
logical(kind=1) :: i, j
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 ()
! { 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.
! { 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
! PR libfortran/15332
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
character*12 c
write (c,100) 0, 1
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! pr 16597
! libgfortran
! reading a direct access record after it was written did
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! pr17143
! does not print 2*63 correctly
character*25 l
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! pr17164
! index aborts when substring is longer than string
implicit none
! 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
! { 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
! { 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,
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! PR 20086 - Missing characters in output with hollerith strings
implicit none
character*80 line
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! pr 20124
character*80 line
x = -.01
! PR libfortran/20755
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
character*30 s
write (s,2000) 0.0, 0.02
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! PR fortran/20865
subroutine tt(j)
integer :: j
! 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
! PR fortran/21730
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
character*2 a
character*4 b
character*6 c
! PR fortran/21730
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
character*2 a (1)
character*4 b (1)
character*6 c
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
character*2 a
character*4 b
parameter (a="12")
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
program main
character*80 line
print (line,'(A)'), 'hello' ! { dg-error "Syntax error" }
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
program main
character*80 line
print (line,'(A)'), 'hello' ! { dg-error "Syntax error" }
-! { 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
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! This tests various error messages for PROCEDURE declarations.
! Contributed by Janus Weil <jaydub66@gmail.com>
! 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
! { 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.
! { 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.
! { 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
read (strg,*) l
if (.not.l) call abort()
end
-
\ No newline at end of file
+
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! PR20866 - A statement function cannot be recursive.
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
!
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! Test cases where no blank is required after RETURN
subroutine sub(*)
return(1)
! { 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.
! { 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'
! { dg-do compile }
+! { dg-options "-std=legacy" }
+!
! tests the fix for pr25082 in which the return of an array by a
! subroutine went undremarked.
!
! { 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
! { 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.
! { 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.
! { 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.
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! PR25828 Stream IO test 2
! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
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
+
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! Program to test character array constructors.
! PR17144
subroutine test1 (n, t, u)
! { dg-do run }
+! { dg-options "-std=legacy" }
+!
! PR 27784 - Different strings should compare unequal even if they
! have CHAR(0) in them.
! { 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)
! { 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.
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" }
! 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_
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
projects / thirdparty / gcc.git / commitdiff
