Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/x_slash_2.f @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! PR 34887 - reverse tabs followed by a slash used to confuse I/O. program main character(len=2) :: b, a open(10,form="formatted") write (10,'(3X, A, T1, A,/)') 'aa', 'bb' rewind(10) read (10,'(A2,1X,A2)') b,a if (a /= 'aa' .or. b /= 'bb') STOP 1 close(10,status="delete") end