[Bug fortran/26064] 4.1 regression introduced with patch for bug 18197

["sven dot buijssen at math dot uni-dortmund dot de" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #2 from sven dot buijssen at math dot uni-dortmund dot de  2006-02-01 16:36 -------
The patch fixes the regression, but introduces a new internal compiler error
for the following testcase:

--- cut here ---
% cat > ice.f90 <<EOF
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
EOF
--- cut here ---

% gfortran -c ice.f90
ice.f90: In function 'bar':
ice.f90:8: internal compiler error: in gfc_typenode_for_spec, at
fortran/trans-types.c:651
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


-- 


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