OpenCores
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/] [slash_edit.f90] - Blame information for rev 303

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn
! pr 14762 - '/' not working in format
2
       INTEGER N(5)
3
       DATA N/1,2,3,4,5/
4
       OPEN(UNIT=7)
5
 100   FORMAT(I4)
6
       WRITE(7,100)N
7
       CLOSE(7)
8
       OPEN(7)
9
 200   FORMAT(I4,///I4)
10
       READ(7,200)I,J
11
       CLOSE(7, STATUS='DELETE')
12
       IF (I.NE.1) CALL ABORT
13
       IF (J.NE.4) CALL ABORT
14
       END

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.