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

Subversion Repositories openrisc

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

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


! REPEAT intrinsic, test for PR 31304
! We check that REPEAT accepts all kind arguments for NCOPIES
!
! { dg-do run }
program test
  implicit none
 
  integer(kind=1) i1
  integer(kind=2) i2
  integer(kind=4) i4
  integer(kind=4) i8
  real(kind=8) r
  character(len=2) s1, s2
 
  i1 = 1 ; i2 = 1 ; i4 = 1 ; i8 = 1
  r = 1
  s1 = '42'
  r = nearest(r,r)
 
  s2 = repeat(s1,i1)
  if (s2 /= s1) call abort
  s2 = repeat(s1,i2)
  if (s2 /= s1) call abort
  s2 = repeat(s1,i4)
  if (s2 /= s1) call abort
  s2 = repeat(s1,i8)
  if (s2 /= s1) call abort
 
end program test

Line No.	Rev	Author	Line
1	694	jeremybenn	`! REPEAT intrinsic, test for PR 31304`
2			`! We check that REPEAT accepts all kind arguments for NCOPIES`
3			`!`
4			`! { dg-do run }`
5			`program test`
6			`implicit none`
7
8			`integer(kind=1) i1`
9			`integer(kind=2) i2`
10			`integer(kind=4) i4`
11			`integer(kind=4) i8`
12			`real(kind=8) r`
13			`character(len=2) s1, s2`
14
15			`i1 = 1 ; i2 = 1 ; i4 = 1 ; i8 = 1`
16			`r = 1`
17			`s1 = '42'`
18			`r = nearest(r,r)`
19
20			`s2 = repeat(s1,i1)`
21			`if (s2 /= s1) call abort`
22			`s2 = repeat(s1,i2)`
23			`if (s2 /= s1) call abort`
24			`s2 = repeat(s1,i4)`
25			`if (s2 /= s1) call abort`
26			`s2 = repeat(s1,i8)`
27			`if (s2 /= s1) call abort`
28
29			`end program test`

Browse

Tools

Subversion Repositories openrisc

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