1! { dg-do compile } 2! { dg-options "-std=gnu" } 3! 4! PR 56284: [OOP] ICE with alternate return in type-bound procedure 5! 6! Contributed by Arjen Markus <arjen.markus@deltares.nl> 7 8module try_this 9 implicit none 10 11 type :: table_t 12 contains 13 procedure, nopass :: getRecord 14 end type 15 16contains 17 18 subroutine getRecord ( * ) 19 end subroutine 20 21end module 22 23! { dg-final { cleanup-modules "try_this" } } 24