gcc/testsuite/gfortran.dg/altreturn_8.f90

   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
   8 module try_this
   9   implicit none
  10
  11   type :: table_t
  12   contains
  13     procedure, nopass :: getRecord
  14   end type
  15
  16 contains
  17
  18   subroutine getRecord ( * )
  19   end subroutine
  20
  21 end module
  22
  23 ! { dg-final { cleanup-modules "try_this" } }