1! { dg-do compile }
2!
3! PR 57966: [OOP] Using a TBP to specify the shape of a dummy argument
4!
5! Contributed by Stefan Mauerberger <stefan.mauerberger@gmail.com>
6
7MODULE my_mod
8  IMPLICIT NONE
9
10  TYPE config_cls
11  CONTAINS
12    PROCEDURE, NOPASS :: my_size
13    PROCEDURE, NOPASS :: my_sub
14    GENERIC :: sz => my_size
15    GENERIC :: sub => my_sub
16  END TYPE
17
18  TYPE(config_cls) :: config
19
20CONTAINS
21
22  PURE INTEGER FUNCTION my_size()
23    my_size = 10
24  END FUNCTION
25
26  SUBROUTINE my_sub
27  END SUBROUTINE
28
29  SUBROUTINE test (field1, field2, field3, field4)
30    REAL :: field1 (config%my_size())
31    REAL :: field2 (config%sz())
32    REAL :: field3 (config%my_sub())  ! { dg-error "should be a FUNCTION" }
33    REAL :: field4 (config%sub())     ! { dg-error "should be a FUNCTION" }
34  END SUBROUTINE
35
36END MODULE
37
38! { dg-final { cleanup-modules "my_mod" } }
39