------- Comment #4 from burnus at gcc dot gnu dot org 2009-11-02 18:02 -------
Test case:
program test
implicit none
call one()
contains
subroutine one(a)
real, dimension(:,:), intent(inout), optional :: a
call two(a)
end subroutine one
subroutine two(a)
real, dimension(:,:), intent(inout), optional :: a
if (present(a)) A(1,1) = 7
end subroutine two
end program test
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2009-11-02 18:02:02
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41907
