! { dg-do compile } | |
! | |
! Check the fix for PR91589, in which the invalid expression caused an ICE. | |
! Other statements using this invalid expression cause "Unclassifiable statement at..." | |
! | |
! Contributed by Gerhardt Steinmetz <gscfq@t-online.de> | |
! | |
program p | |
type t | |
integer :: a | |
end type | |
type(t) :: x = t(1) | |
call sub (x%a%a) ! { dg-error "is not an inquiry reference" } | |
end | |