| ! { dg-do compile } | |
| ! | |
| ! Tests the fix for PR80260 | |
| ! | |
| ! Contributed by Damian Rouson <damian@sourceryinstitute.org> | |
| ! | |
| type foo | |
| end type foo | |
| type, extends(foo) :: bar | |
| end type | |
| contains | |
| subroutine f(x) | |
| class(foo) x(:,:) | |
| select type(x) | |
| class is (bar) | |
| call g(x(1,:)) ! ICEd here. | |
| end select | |
| end subroutine | |
| subroutine g(y) | |
| class(bar) y(:) | |
| end subroutine | |
| end |