Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/abstract_type_8.f03 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR 44616: [OOP] ICE if CLASS(foo) is used before its definition ! ! Contributed by bd satish <bdsatish@gmail.com> module factory_pattern implicit none type First_Factory character(len=20) :: factory_type class(Connection), pointer :: connection_type contains end type First_Factory type, abstract :: Connection contains procedure(generic_desc), deferred :: description end type Connection abstract interface subroutine generic_desc(self) import ! Required, cf. PR 44614 class(Connection) :: self end subroutine generic_desc end interface end module factory_pattern