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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [negative-z-descriptor.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! PR 22217:  Z edit descriptor with negative numbers used to give lots of *
3
 
4
program main
5
  character(len=70) line
6
  character(len=20) fmt
7
  write(unit=line,fmt='(Z4)') -1_1
8
  if (line(1:4) .ne. '  FF') call abort
9
  write(unit=line,fmt='(Z5)') -1_2
10
  if (line(1:5) .ne. ' FFFF') call abort
11
  write(unit=line,fmt='(Z9)') -1_4
12
  if (line(1:9) .ne. ' FFFFFFFF') call abort
13
  write(unit=line,fmt='(Z17)') -2_8
14
  if (line(1:17) .ne. ' FFFFFFFFFFFFFFFE') call abort
15
  write(unit=line,fmt='(Z2)') 10_8
16
  if (line(1:2) .ne. ' A') call abort
17
 
18
  write(unit=line,fmt='(Z8)') -43_8
19
  if (line(1:1) .ne. '*') call abort
20
 
21
  write(unit=line,fmt='(B65)') -1_8
22
  if (line(1:2) .ne. ' 1') call abort
23
  if (line(64:66) .ne. '11 ') call abort
24
 
25
  write(unit=line,fmt='(O4)') -2_1
26
  if (line(1:4) .ne. ' 376') call abort
27
end

powered by: WebSVN 2.1.0

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