blob: d5595f2f9b7d2c26857cab138f7b37b47335a4a6 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fdump-tree-original" }
!
! PR fortran/52270
!
! From IR F08/0073 by Malcolm Cohen
!
Program m013
Type t
Real c
End Type
Type(t),Target :: x
Call sub(x)
Print *,x%c
if (x%c /= 3) STOP 1
Contains
Subroutine sub(p)
Class(t),Pointer,Intent(In) :: p
p%c = 3
End Subroutine
End Program
! { dg-final { scan-tree-dump-times "sub \\(&class" 1 "original" } }