Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/runtime_warning_1.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
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') STOP 1 end