2 ! { dg-options "-std=gnu" }
4 ! PR 56284: [OOP] ICE with alternate return in type-bound procedure
6 ! Contributed by Arjen Markus <arjen.markus@deltares.nl>
13 procedure
, nopass
:: getRecord
18 subroutine getRecord ( * )
23 ! { dg-final { cleanup-modules "try_this" } }