gcc/testsuite/gfortran.dg/extends_8.f03


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

! { dg-do compile }
!
! PR 41784: [OOP] ICE in load_derived_extensions
!
! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>

module m
  type  :: A
  end type
  type, extends(A) :: B
  end type
end module

use m, only: A
end
 
! { dg-final { cleanup-modules "m" } }