3 ! Checks the fix for PR60483.
5 ! Contributed by Anthony Lewis <antony@cosmologist.info>
14 integer :: final_flag = 0
16 subroutine testfree(this)
18 final_flag = this%val + final_flag
21 associate(X => T()) ! This was failing: Symbol 'x' at (1) has no IMPLICIT type
24 if (final_flag .ne. 2) stop 1