gcc-4_8-branch/gcc/testsuite/gfortran.dg/extends_15.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 58355: [4.7/4.8/4.9 Regression] [F03] ICE with TYPE, EXTENDS before parent TYPE defined
   4 !
   5 ! Contributed by Andrew Benson <abensonca@gmail.com>
   6
   7 module ct
   8   public :: t1
   9
  10   type, extends(t1) :: t2   ! { dg-error "has not been previously defined" }
  11
  12   type :: t1
  13   end type
  14 end
  15
  16 ! { dg-final { cleanup-modules "ct" } }