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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [complex_read.f90] - Blame information for rev 149

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

Line No. Rev Author Line
1 149 jeremybenn 
! { dg-do run }
2 
! Test of the fix to the bug in NIST fm906.for.
3 
! Contributed by Paul Thomas
4 
!
5 
program complex_read
6 
  complex            ::  a
7 
  open (10, status="scratch")
8 
 
9 
! Test that we have not broken the one line form.
10 
 
11 
  write (10, *) " ( 0.99  ,  9.9  )"
12 
  rewind (10)
13 
  read (10,*) a
14 
  if (a.ne.(0.99, 9.90)) call abort ()
15 
 
16 
! Test a new record after the.comma (the original bug).
17 
 
18 
  rewind (10)
19 
  write (10, *) " ( 99.0   ,"
20 
  write (10, *) "   999.0  )"
21 
  rewind (10)
22 
  read (10,*) a
23 
  if (a.ne.(99.0, 999.0)) call abort ()
24 
 
25 
! Test a new record before the.comma
26 
 
27 
  rewind (10)
28 
  write (10, *) " ( 0.99  "
29 
  write (10, *) " , 9.9  )"
30 
  rewind (10)
31 
  read (10,*) a
32 
  if (a.ne.(0.99, 9.90)) call abort ()
33 
 
34 
! Test a new records before and after the.comma
35 
 
36 
  rewind (10)
37 
  write (10, *) " ( 99.0   "
38 
  write (10, *) ",         "
39 
  write (10, *) "  999.0  )"
40 
  rewind (10)
41 
  read (10,*) a
42 
  if (a.ne.(99.0, 999.0)) call abort ()
43 
 
44 
! Test a new records and blank records before and after the.comma
45 
 
46 
  rewind (10)
47 
  write (10, *) " ( 0.99   "
48 
  write (10, *) "          "
49 
  write (10, *) ",         "
50 
  write (10, *) "          "
51 
  write (10, *) "  9.9    )"
52 
  rewind (10)
53 
  read (10,*) a
54 
  if (a.ne.(0.99, 9.9)) call abort ()
55 
 
56 
  close (10)
57 
end program complex_read
58 
 

powered by: WebSVN 2.1.0

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