Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/class_allocate_24.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-fcheck=mem" } ! ! Compile time check only, to test that the ICE is fixed in the assignment of the ! default initializer of the class to sf. implicit none type :: t integer, pointer :: data => null () end type class(t), dimension(:), allocatable :: sf allocate (t :: sf (1)) end