1! { dg-do compile }
2! { dg-options "-std=f2003" }
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) ! { dg-error "Fortran 2008: Non-pointer actual argument" }
15    Print *,x%c
16    if (x%c /= 3) STOP 1
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