From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-175347-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 19394 invoked by alias); 1 Feb 2006 17:00:53 -0000
Received: (qmail 19170 invoked by uid 48); 1 Feb 2006 17:00:16 -0000
Date: Wed, 01 Feb 2006 17:00:00 -0000
Message-ID: <20060201170016.19169.qmail@sourceware.org>
X-Bugzilla-Reason: CC
References: <bug-26064-11543@http.gcc.gnu.org/bugzilla/>
Subject: [Bug fortran/26064] 4.1 regression introduced with patch for bug 18197
In-Reply-To: <bug-26064-11543@http.gcc.gnu.org/bugzilla/>
Reply-To: gcc-bugzilla@gcc.gnu.org
To: gcc-bugs@gcc.gnu.org
From: "hjl at lucon dot org" <gcc-bugzilla@gcc.gnu.org>
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
X-SW-Source: 2006-02/txt/msg00093.txt.bz2
List-Id: <gcc-bugs.sourceware.org>



------- Comment #4 from hjl at lucon dot org  2006-02-01 17:00 -------
I didn't see it:

[hjl@gnu-16]$  cat xxx.f90
module ice
  implicit none
  contains

    subroutine foo()
    contains

      subroutine bar(baz)
        integer :: baz
        if (present(baz)) then
        endif
      end subroutine bar
    end subroutine foo
end module
[hjl@gnu-16]$ /export/build/gnu/gcc/build-x86_64-linux/gcc/gfortran
-B/export/build/gnu/gcc/build-x86_64-linux/gcc/  -S xxx.f90
 In file xxx.f90:10

        if (present(baz)) then
                   1
Error: 'a' argument of 'present' intrinsic at (1) must be of an OPTIONAL dummy
variable
[hjl@gnu-16]$


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26064