This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]
Other format:	[Raw text]

Re: [Patch, Fortran, OOP] PR 47767: SELECT TYPE fails to execute correct TYPE IS block

From: Tobias Burnus <burnus at net-b dot de>
To: Janus Weil <janus at gcc dot gnu dot org>
Cc: gcc patches <gcc-patches at gcc dot gnu dot org>, gfortran <fortran at gcc dot gnu dot org>
Date: Thu, 17 Feb 2011 23:43:20 +0100
Subject: Re: [Patch, Fortran, OOP] PR 47767: SELECT TYPE fails to execute correct TYPE IS block
References: <AANLkTinp-zmaqkbhyM+GZvLmHKgcpOBZT0RfcgVRz+dY@mail.gmail.com>

Janus Weil wrote:

The patch was regtested on x86_64-unknown-linux-gnu. Ok for trunk?

OK.

Tobias

2011-02-17 Janus Weil<janus@gcc.gnu.org>

	PR fortran/47767
	* gfortran.h (gfc_check_access): Removed prototype.
	(gfc_check_symbol_access): Added prototype.
	* module.c (gfc_check_access): Renamed to 'check_access', made static.
	(gfc_check_symbol_access): New function, basically a shortcut for
	'check_access'.
	(write_dt_extensions,write_symbol0,write_generic,write_symtree): Use
	'gfc_check_symbol_access'.
	(write_operator,write_module): Renamed 'gfc_check_access'.
	* resolve.c (resolve_fl_procedure,resolve_fl_derived,
	resolve_fl_namelist,resolve_symbol,resolve_fntype): Use
	'gfc_check_symbol_access'.

2011-02-17 Janus Weil<janus@gcc.gnu.org>

	PR fortran/47767
	* gfortran.dg/class_40.f03: New.

Follow-Ups:
- Re: [Patch, Fortran, OOP] PR 47767: SELECT TYPE fails to execute correct TYPE IS block
  - From: Janus Weil

References:
- [Patch, Fortran, OOP] PR 47767: SELECT TYPE fails to execute correct TYPE IS block
  - From: Janus Weil

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]