------- Comment #4 from hjl at lucon dot org 2006-02-01 17:00 -------
I didn't see it:
[EMAIL PROTECTED] 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
[EMAIL PROTECTED] /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
[EMAIL PROTECTED]
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26064
