From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 21617 invoked by alias); 6 Oct 2009 14:26:41 -0000 Received: (qmail 20816 invoked by uid 48); 6 Oct 2009 14:26:25 -0000 Date: Tue, 06 Oct 2009 14:26:00 -0000 Subject: [Bug fortran/41603] New: [-fwhole-file] Add diagnostic for assumed-length character function X-Bugzilla-Reason: CC Message-ID: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "burnus at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2009-10/txt/msg00506.txt.bz2 Found in the thread http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/bb75425678569ae3 James Van Buskirk wrote a program there in http://groups.google.com/group/comp.lang.fortran/msg/fb12cca32eab44cb The program seems to be invalid with the interface declaration. ifort -warn all writes: test.f90(58): warning #7984: A CHARACTER function name must not be declared with an asterisk type-param-value (i.e., (LEN=*)) if the function is part of an interface-body. No interface block will be generated. [ASSUMED_LEN] function assumed_len(x) ---------^ NAG f95 writes: Error: ahjf.f90: Assumed-length character function ASSUMED_LEN described in an INTERFACE block in FUNCS as non-assumed Expected: With "gfortran -std=f2003 -Wall -pedantic -fwhole-file ahjf.f90" one should see also some diagnostic -- Summary: [-fwhole-file] Add diagnostic for assumed-length character function Product: gcc Version: 4.5.0 Status: UNCONFIRMED Keywords: accepts-invalid, diagnostic Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: burnus at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41603