Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/runtime_warning_1.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
! Test runtime warnings using non-standard $ editing - PR20006. ! ! Contributor Francois-Xavier Coudert <coudert@clipper.ens.fr> ! ! { dg-options "-pedantic" } ! { dg-do run } ! character(5) c open (42,status='scratch') write (42,'(A,$)') 'abc' ! { dg-warning ".*descriptor" } write (42,'(A)') 'de' rewind (42) read (42,'(A)') c close (42) if (c /= 'abcde') call abort () end