https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84245
Paul Thomas <pault at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Assignee|unassigned at gcc dot gnu.org |pault at gcc dot gnu.org
CC| |pault at gcc dot gnu.org
--- Comment #12 from Paul Thomas <pault at gcc dot gnu.org> ---
Created attachment 59753
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=59753&action=edit
Fix for this PR
Testcase. Regressions tests OK. Will submit when my tree is cleared of other
work.
! { dg-do compile }
!
! Fix ICEs caused by patch for PR78026
!
! Contributed by Gerhard Steinmetz <[email protected]>
!
module m
contains
! z04, z06-z10 and z12-z16 were all variants, picked up by the errors below.
subroutine z01
select type (x%a) ! { dg-error "nonderived-type variable" }
end select ! { dg-error "Expecting END SUBROUTINE" }
end
subroutine z02
select type (x% ! { dg-error "nonderived-type variable" }
end select ! { dg-error "Expecting END SUBROUTINE" }
end
subroutine z03
select type (x%& ! { dg-error "nonderived-type variable" }
end select
end
subroutine z05
select type (x( ! { dg-error "Syntax error" }
end select ! { dg-error "Expecting END SUBROUTINE" }
end
subroutine z11
select type (x[1] ! { dg-error "not a coarray" }
end select ! { dg-error "Expecting END SUBROUTINE" }
end
end module
