Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/dtio_15.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children |
comparison
equal
deleted
inserted
replaced
130:e108057fa461 | 132:d34655255c78 |
---|---|
27 type(person) :: s | 27 type(person) :: s |
28 character(len=12) :: msg | 28 character(len=12) :: msg |
29 integer :: istat | 29 integer :: istat |
30 character(len=256) :: imsg = "" | 30 character(len=256) :: imsg = "" |
31 write( msg, "(DT)", iostat=istat) s | 31 write( msg, "(DT)", iostat=istat) s |
32 if (istat /= 5018) call abort | 32 if (istat /= 5018) STOP 1 |
33 end program p | 33 end program p |