1! { dg-do compile }
2! { dg-options "-fdump-tree-original" }
3!
4! PR fortran/52270
5!
6! From IR F08/0073 by Malcolm Cohen
7!
8
9  Program m013
10    Type t
11      Real c
12    End Type
13    Type(t),Target :: x
14    Call sub(x)
15    Print *,x%c
16    if (x%c /= 3) call abort ()
17  Contains
18    Subroutine sub(p)
19      Class(t),Pointer,Intent(In) :: p
20      p%c = 3
21    End Subroutine
22  End Program
23
24! { dg-final { scan-tree-dump-times "sub \\(&class" 1 "original" } }
25! { dg-final { cleanup-tree-dump "original" } }
26