]> git.ipfire.org Git - thirdparty/gcc.git/commit - gcc/fortran/interface.cc
re PR fortran/54190 (TYPE(*)/assumed-rank: Type/rank check too relaxed for dummy...
authorJanus Weil <janus@gcc.gnu.org>
Fri, 31 May 2013 08:09:09 +0000 (10:09 +0200)
committerJanus Weil <janus@gcc.gnu.org>
Fri, 31 May 2013 08:09:09 +0000 (10:09 +0200)
commite7333b691a8ec1d1bfb0e8ea1c8702a869e87232
tree47677cddfe498b18259a39ec527d93408dae351e
parente571fa591212572f2839eb64ad879aed81846f45
re PR fortran/54190 (TYPE(*)/assumed-rank: Type/rank check too relaxed for dummy procedure)

2013-05-31  Janus Weil  <janus@gcc.gnu.org>

PR fortran/54190
PR fortran/57217
* gfortran.h (gfc_terminal_width): Remove prototype.
* error.c (get_terminal_width): Moved here from misc.c. Renamed.
Try to determine terminal width from environment variable.
* interface.c (compare_type, compare_rank): New functions. Fix assumed
type/rank handling.
(compare_type_rank, check_dummy_characteristics,
check_result_characteristics, gfc_compare_interfaces): Use them.
(symbol_rank): Slightly modified and moved.
* misc.c (gfc_terminal_width): Moved to error.c.

2013-05-31  Janus Weil  <janus@gcc.gnu.org>

PR fortran/54190
PR fortran/57217
* gfortran.dg/dummy_procedure_5.f90: Modified error message.
* gfortran.dg/interface_26.f90: Ditto.
* gfortran.dg/proc_ptr_11.f90: Ditto.
* gfortran.dg/proc_ptr_15.f90: Ditto.
* gfortran.dg/proc_ptr_comp_20.f90: Ditto.
* gfortran.dg/proc_ptr_comp_33.f90: Ditto.
* gfortran.dg/proc_ptr_result_5.f90: Ditto.
* gfortran.dg/typebound_override_1.f90: Ditto.
* gfortran.dg/typebound_override_4.f90: Ditto.
* gfortran.dg/typebound_proc_6.f03: Ditto.
* gfortran.dg/assumed_type_7.f90: New test.
* gfortran.dg/typebound_override_5.f90: New test.
* gfortran.dg/typebound_override_6.f90: New test.
* gfortran.dg/typebound_override_7.f90: New test.

From-SVN: r199475
20 files changed:
gcc/fortran/ChangeLog
gcc/fortran/error.c
gcc/fortran/gfortran.h
gcc/fortran/interface.c
gcc/fortran/misc.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/assumed_type_7.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/dummy_procedure_5.f90
gcc/testsuite/gfortran.dg/interface_26.f90
gcc/testsuite/gfortran.dg/proc_ptr_11.f90
gcc/testsuite/gfortran.dg/proc_ptr_15.f90
gcc/testsuite/gfortran.dg/proc_ptr_comp_20.f90
gcc/testsuite/gfortran.dg/proc_ptr_comp_33.f90
gcc/testsuite/gfortran.dg/proc_ptr_result_5.f90
gcc/testsuite/gfortran.dg/typebound_override_1.f90
gcc/testsuite/gfortran.dg/typebound_override_4.f90
gcc/testsuite/gfortran.dg/typebound_override_5.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/typebound_override_6.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/typebound_override_7.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/typebound_proc_6.f03