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

Subversion Repositories openrisc

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

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


! { dg-do run }
! Test of the fix to the bug in NIST fm906.for.
! Contributed by Paul Thomas  
!
program complex_read
  complex            ::  a
  open (10, status="scratch")
 
! Test that we have not broken the one line form.
 
  write (10, *) " ( 0.99  ,  9.9  )"
  rewind (10)
  read (10,*) a
  if (a.ne.(0.99, 9.90)) call abort ()
 
! Test a new record after the.comma (the original bug).
 
  rewind (10)
  write (10, *) " ( 99.0   ,"
  write (10, *) "   999.0  )"
  rewind (10)
  read (10,*) a
  if (a.ne.(99.0, 999.0)) call abort ()
 
! Test a new record before the.comma
 
  rewind (10)
  write (10, *) " ( 0.99  "
  write (10, *) " , 9.9  )"
  rewind (10)
  read (10,*) a
  if (a.ne.(0.99, 9.90)) call abort ()
 
! Test a new records before and after the.comma
 
  rewind (10)
  write (10, *) " ( 99.0   "
  write (10, *) ",         "
  write (10, *) "  999.0  )"
  rewind (10)
  read (10,*) a
  if (a.ne.(99.0, 999.0)) call abort ()
 
! Test a new records and blank records before and after the.comma
 
  rewind (10)
  write (10, *) " ( 0.99   "
  write (10, *) "          "
  write (10, *) ",         "
  write (10, *) "          "
  write (10, *) "  9.9    )"
  rewind (10)
  read (10,*) a
  if (a.ne.(0.99, 9.9)) call abort ()
 
  close (10)
end program complex_read
 

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

Browse

Tools

Subversion Repositories openrisc

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