comparison gcc/testsuite/gfortran.dg/t_editing.f @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
2 ! PR25349 Check T editing. Test case from PR submitted by Thomas Koenig 2 ! PR25349 Check T editing. Test case from PR submitted by Thomas Koenig
3 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org> 3 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
4 program main 4 program main
5 character(len=10) line 5 character(len=10) line
6 write (line,'(1X,A,T1,A)') 'A','B' 6 write (line,'(1X,A,T1,A)') 'A','B'
7 if (line.ne.'BA') call abort() 7 if (line.ne.'BA') STOP 1
8 end 8 end