gcc/testsuite/gfortran.dg/pr91589.f90

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