Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/class_29.f03 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR 46313: [OOP] OOP-ABI issue, ALLOCATE issue, CLASS renaming issue ! ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> module m1 type mytype real :: a(10) = 2 end type end module m1 module m2 type mytype real :: b(10) = 8 end type end module m2 program p use m1, t1 => mytype use m2, t2 => mytype implicit none class(t1), allocatable :: x class(t2), allocatable :: y allocate (t1 :: x) allocate (t2 :: y) print *, x%a print *, y%b end