Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/abstract_type_4.f03 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! Abstract Types. ! Check for module file IO. MODULE m IMPLICIT NONE TYPE, ABSTRACT :: abst_t INTEGER :: x END TYPE abst_t TYPE, EXTENDS(abst_t) :: concrete_t INTEGER :: y END TYPE concrete_t END MODULE m PROGRAM main USE m IMPLICIT NONE TYPE(abst_t) :: abst ! { dg-error "is of the ABSTRACT type 'abst_t'" } TYPE(concrete_t) :: conc ! See if constructing the extending type works. conc = concrete_t (1, 2) END PROGRAM main