------- Comment #2 from pinskia at gcc dot gnu dot org 2006-04-04 22:16 -------
With the fixed code:
program main
call foo (5)
contains
subroutine foo(n, a)
integer :: n
integer, dimension(5), optional :: a
print *, n
if (present (a)) call abort ()
end subroutine foo
end program main
It works in 4.1.0 and the mainline so closing as invalid (or this could be
closed as a dup of bug 26227 which is the bug records the accepting of the
invalid code).
--
pinskia at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |RESOLVED
Resolution| |INVALID
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27035
