OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_cache_1.f] - Blame information for rev 437

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

Line No. Rev Author Line
1 302 jeremybenn 
! { dg-do run }
2 
! pr40662 segfaults when specific format is invoked twice.
3 
! pr40330  incorrect io.
4 
! test case derived from pr40662, <jvdelisle@gcc.gnu.org>
5 
      program astap
6 
      character(40) teststring
7 
      arlxca = 0.0
8 
      open(10, status="scratch")
9 
      write(10,40) arlxca
10 
      write(10,40) arlxca
11 
40    format(t4,"arlxca = ",1pg13.6,t27,"arlxcc = ",g13.6,t53,
12 
     .            "atmpca = ",g13.6,t79,"atmpcc = ",g13.6,t105,
13 
     .            "backup = ",g13.6,/,
14 
     .         t4,"csgfac = ",g13.6,t27,"csgmax = ",g13.6,t53,
15 
     .            "csgmin = ",g13.6,t79,"drlxca = ",g13.6,t105,
16 
     .            "drlxcc = ",g13.6,/,
17 
     .         t4,"dtimeh = ",g13.6,t27,"dtimei = ",g13.6,t53,
18 
     .            "dtimel = ",g13.6,t79,"dtimeu = ",g13.6,t105,
19 
     .            "dtmpca = ",g13.6,/,
20 
     .         t4,"dtmpcc = ",g13.6,t27,"ebalna = ",g13.6,t53,
21 
     .            "ebalnc = ",g13.6,t79,"ebalsa = ",g13.6,t105,
22 
     .            "ebalsc = ",g13.6)
23 
      rewind 10
24 
      rewind 10
25 
      teststring = ""
26 
      read(10,'(a)') teststring
27 
      if (teststring.ne."   arlxca =   0.00000     arlxcc = ")call abort
28 
      teststring = ""
29 
      read(10,'(a)') teststring
30 
      if (teststring.ne."   arlxca =   0.00000     arlxcc = ")call abort
31 
      end program astap
32 
 
33 
 

powered by: WebSVN 2.1.0

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