comparison gcc/testsuite/gfortran.dg/runtime_warning_1.f90 @ 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
10 write (42,'(A,$)') 'abc' ! { dg-warning ".*descriptor" } 10 write (42,'(A,$)') 'abc' ! { dg-warning ".*descriptor" }
11 write (42,'(A)') 'de' 11 write (42,'(A)') 'de'
12 rewind (42) 12 rewind (42)
13 read (42,'(A)') c 13 read (42,'(A)') c
14 close (42) 14 close (42)
15 if (c /= 'abcde') call abort () 15 if (c /= 'abcde') STOP 1
16 end 16 end
17 17