URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [a_edit_1.f90] - Blame information for rev 308

Go to most recent revision | Details | Compare with Previous | View Log


! pr 15113
! Ax edit descriptor x larger than destination
! A edit descriptor with no field width segfaults
       character*16 C
       character*4 D
       data C / 'ABCDEFGHIJKLMNOP'/
       read(C,'(A7)')D
       if (D.NE.'DEFG') then
!         print*,D
          call abort
       endif
       read(C,'(A)')D
       if (D.NE.'ABCD') then
!         print*,D
          call abort
       endif
       end

Line No.	Rev	Author	Line
1	303	jeremybenn	`! pr 15113`
2			`! Ax edit descriptor x larger than destination`
3			`! A edit descriptor with no field width segfaults`
4			`character*16 C`
5			`character*4 D`
6			`data C / 'ABCDEFGHIJKLMNOP'/`
7			`read(C,'(A7)')D`
8			`if (D.NE.'DEFG') then`
9			`! print*,D`
10			`call abort`
11			`endif`
12			`read(C,'(A)')D`
13			`if (D.NE.'ABCD') then`
14			`! print*,D`
15			`call abort`
16			`endif`
17			`end`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [a_edit_1.f90] - Blame information for rev 308