blob: d02cb64bfc281854e58819ec7a0ba7295511a487 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { 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 "Syntax error in argument list" }
end
|
