This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/26064] 4.1 regression introduced with patch for bug 18197
- From: "hjl at lucon dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 1 Feb 2006 17:00:16 -0000
- Subject: [Bug fortran/26064] 4.1 regression introduced with patch for bug 18197
- References: <bug-26064-11543@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot 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