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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_int_sign.f90] - Blame information for rev 704

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


! { dg-do run }
! { dg-options -fno-range-check }
! PR38504 double minus sign when printing integer
! Test case derived from example by Jos de Kloe
program IntAdtest
 
  integer, parameter :: i8_ = Selected_Int_Kind(18)  ! = integer*8
  character(len=22) :: str_value
  integer(i8_) :: value
  character(len=*), parameter :: format_IntAd  = "(i22)"
 
  value = -9223372036854775807_i8_ -1
  write(str_value, format_IntAd) value
  if (str_value.ne."  -9223372036854775808") call abort
 
end program IntAdtest

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options -fno-range-check }`
3			`! PR38504 double minus sign when printing integer`
4			`! Test case derived from example by Jos de Kloe`
5			`program IntAdtest`
6
7			`integer, parameter :: i8_ = Selected_Int_Kind(18) ! = integer*8`
8			`character(len=22) :: str_value`
9			`integer(i8_) :: value`
10			`character(len=*), parameter :: format_IntAd = "(i22)"`
11
12			`value = -9223372036854775807_i8_ -1`
13			`write(str_value, format_IntAd) value`
14			`if (str_value.ne." -9223372036854775808") call abort`
15
16			`end program IntAdtest`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_int_sign.f90] - Blame information for rev 704