| ! { dg-do run } | |
| ! | |
| ! PR 45521: [F08] GENERIC resolution with ALLOCATABLE/POINTER and PROCEDURE | |
| ! | |
| ! Contributed by <wangmianzhi1@linuxmail.org> | |
| interface test | |
| procedure testAlloc | |
| procedure testPtr | |
| end interface | |
| integer, allocatable :: a1 | |
| integer, pointer :: a2 | |
| if (.not.test(a1)) STOP 1 | |
| if (test(a2)) STOP 2 | |
| contains | |
| logical function testAlloc(obj) | |
| integer, allocatable :: obj | |
| testAlloc = .true. | |
| end function | |
| logical function testPtr(obj) | |
| integer, pointer :: obj | |
| testPtr = .false. | |
| end function | |
| end |