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