2 ! Tests the fix for PR40591 in which the interface 'sub2'
\r
3 ! for 'pptr2' was not resolved.
\r
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
\r
15 procedure(sub1), pointer :: pptr1
\r
16 procedure(sub2), pointer :: pptr2
27 if (i .ne. 22) call abort
\r