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

Subversion Repositories openrisc_2011-10-31

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

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.