Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dtio_10.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! ! Tests runtime check of the required type in dtio formatted read. ! module usertypes type udt integer :: myarray(15) end type udt type, extends(udt) :: more integer :: itest = -25 end type end module usertypes program test1 use usertypes type (udt) :: udt1 type (more) :: more1 class (more), allocatable :: somemore integer :: thesize, i, ios character(100) :: errormsg read (10, fmt='(dt)', advance='no', size=thesize, iostat=ios, & & iomsg=errormsg) i, udt1 if (ios.ne.5006) call abort if (errormsg(27:47).ne."intrinsic type passed") call abort end program test1