Commit 3c0c5027 by Dominique d'Humieres Committed by Uros Bizjak

boz_15.f90: Fix typos.

	* gfortran.dg/boz_15.f90: Fix typos.

From-SVN: r155225
parent e07983ba
2009-12-14 Dominique d'Humieres <dominiq@lps.ens.fr>
* gfortran.dg/boz_15.f90: Fix typos.
2009-12-14 Jakub Jelinek <jakub@redhat.com> 2009-12-14 Jakub Jelinek <jakub@redhat.com>
Sebastian Pop <sebastian.pop@amd.com> Sebastian Pop <sebastian.pop@amd.com>
......
...@@ -8,7 +8,7 @@ ...@@ -8,7 +8,7 @@
! which needs integer(16) support. ! which needs integer(16) support.
! !
implicit none implicit none
character(len=255) :: str character(len=256) :: str
integer,parameter :: xp = selected_real_kind (precision (0.0d0)+1) integer,parameter :: xp = selected_real_kind (precision (0.0d0)+1)
real(xp) :: r1,r2 real(xp) :: r1,r2
complex(xp) :: z1,z2 complex(xp) :: z1,z2
...@@ -16,8 +16,8 @@ complex(xp) :: z1,z2 ...@@ -16,8 +16,8 @@ complex(xp) :: z1,z2
r2 = 5.0_xp r2 = 5.0_xp
r1 = 2.0_xp r1 = 2.0_xp
! Real B(OZ) ! Real B(OZ)
write(str,'(b126)') r1 write(str,'(b128)') r1
read (str,'(b126)') r2 read (str,'(b128)') r2
if(r2 /= r1) call abort() if(r2 /= r1) call abort()
! Real (B)O(Z) ! Real (B)O(Z)
r2 = 5.0_xp r2 = 5.0_xp
...@@ -33,8 +33,8 @@ if(r2 /= r1) call abort() ...@@ -33,8 +33,8 @@ if(r2 /= r1) call abort()
z2 = cmplx(5.0_xp,7.0_xp) z2 = cmplx(5.0_xp,7.0_xp)
z1 = cmplx(2.0_xp,3.0_xp) z1 = cmplx(2.0_xp,3.0_xp)
! Complex B(OZ) ! Complex B(OZ)
write(str,'(2b126)') z1 write(str,'(2b128)') z1
read (str,'(2b126)') z2 read (str,'(2b128)') z2
if(z2 /= z1) call abort() if(z2 /= z1) call abort()
! Complex (B)O(Z) ! Complex (B)O(Z)
z2 = cmplx(5.0_xp,7.0_xp) z2 = cmplx(5.0_xp,7.0_xp)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment