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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn 
! REPEAT intrinsic
2 
!
3 
! { dg-do run }
4 
subroutine foo(i, j, s, t)
5 
  implicit none
6 
  integer, intent(in) :: i, j
7 
  character(len=i), intent(in) :: s
8 
  character(len=i*j), intent(in) :: t
9 
 
10 
  if (repeat(s,j) /= t) call abort
11 
  call bar(j,s,t)
12 
end subroutine foo
13 
 
14 
subroutine bar(j, s, t)
15 
  implicit none
16 
  integer, intent(in) :: j
17 
  character(len=*), intent(in) :: s
18 
  character(len=len(s)*j), intent(in) :: t
19 
 
20 
  if (repeat(s,j) /= t) call abort
21 
end subroutine bar
22 
 
23 
program test
24 
  implicit none
25 
  character(len=0), parameter :: s0 = ""
26 
  character(len=1), parameter :: s1 = "a"
27 
  character(len=2), parameter :: s2 = "ab"
28 
  character(len=0) :: t0
29 
  character(len=1) :: t1
30 
  character(len=2) :: t2
31 
  integer :: i
32 
 
33 
  t0 = ""
34 
  t1 = "a"
35 
  t2 = "ab"
36 
 
37 
  if (repeat(t0, 0) /= "") call abort
38 
  if (repeat(t1, 0) /= "") call abort
39 
  if (repeat(t2, 0) /= "") call abort
40 
  if (repeat(t0, 1) /= "") call abort
41 
  if (repeat(t1, 1) /= "a") call abort
42 
  if (repeat(t2, 1) /= "ab") call abort
43 
  if (repeat(t0, 2) /= "") call abort
44 
  if (repeat(t1, 2) /= "aa") call abort
45 
  if (repeat(t2, 2) /= "abab") call abort
46 
 
47 
  if (repeat(s0, 0) /= "") call abort
48 
  if (repeat(s1, 0) /= "") call abort
49 
  if (repeat(s2, 0) /= "") call abort
50 
  if (repeat(s0, 1) /= "") call abort
51 
  if (repeat(s1, 1) /= "a") call abort
52 
  if (repeat(s2, 1) /= "ab") call abort
53 
  if (repeat(s0, 2) /= "") call abort
54 
  if (repeat(s1, 2) /= "aa") call abort
55 
  if (repeat(s2, 2) /= "abab") call abort
56 
 
57 
  i = 0
58 
  if (repeat(t0, i) /= "") call abort
59 
  if (repeat(t1, i) /= "") call abort
60 
  if (repeat(t2, i) /= "") call abort
61 
  i = 1
62 
  if (repeat(t0, i) /= "") call abort
63 
  if (repeat(t1, i) /= "a") call abort
64 
  if (repeat(t2, i) /= "ab") call abort
65 
  i = 2
66 
  if (repeat(t0, i) /= "") call abort
67 
  if (repeat(t1, i) /= "aa") call abort
68 
  if (repeat(t2, i) /= "abab") call abort
69 
 
70 
  i = 0
71 
  if (repeat(s0, i) /= "") call abort
72 
  if (repeat(s1, i) /= "") call abort
73 
  if (repeat(s2, i) /= "") call abort
74 
  i = 1
75 
  if (repeat(s0, i) /= "") call abort
76 
  if (repeat(s1, i) /= "a") call abort
77 
  if (repeat(s2, i) /= "ab") call abort
78 
  i = 2
79 
  if (repeat(s0, i) /= "") call abort
80 
  if (repeat(s1, i) /= "aa") call abort
81 
  if (repeat(s2, i) /= "abab") call abort
82 
 
83 
  call foo(0,0,"","")
84 
  call foo(0,1,"","")
85 
  call foo(0,2,"","")
86 
  call foo(1,0,"a","")
87 
  call foo(1,1,"a","a")
88 
  call foo(1,2,"a","aa")
89 
  call foo(2,0,"ab","")
90 
  call foo(2,1,"ab","ab")
91 
  call foo(2,2,"ab","abab")
92 
end program test

powered by: WebSVN 2.1.0

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