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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
 
3
module mod
4
 
5
  interface cut
6
    module procedure cut1
7
    module procedure cut4
8
  end interface cut
9
 
10
contains
11
 
12
  function cut1 (s)
13
    character(kind=1,len=*), intent(in) :: s
14
    character(kind=1,len=max(0,len(s)-3)) :: cut1
15
 
16
    cut1 = s(4:)
17
  end function cut1
18
 
19
  function cut4 (s)
20
    character(kind=4,len=*), intent(in) :: s
21
    character(kind=4,len=max(0,len(s)-3)) :: cut4
22
 
23
    cut4 = s(4:)
24
  end function cut4
25
 
26
end module mod
27
 
28
program test
29
  use mod
30
 
31
  if (len (cut1("")) /= 0 .or. cut1("") /= "") call abort
32
  if (len (cut1("1")) /= 0 .or. cut1("") /= "") call abort
33
  if (len (cut1("12")) /= 0 .or. cut1("") /= "") call abort
34
  if (len (cut1("123")) /= 0 .or. cut1("") /= "") call abort
35
  if (len (cut1("1234")) /= 1 .or. cut1("4") /= "") call abort
36
  if (len (cut1("12345")) /= 2 .or. cut1("45") /= "") call abort
37
 
38
  if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") call abort
39
  if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") call abort
40
  if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") call abort
41
  if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") call abort
42
  if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") call abort
43
  if (len (cut4(4_"12345")) /= 2 .or. cut4(4_"45") /= 4_"") call abort
44
 
45
  if (kind (cut("")) /= kind("")) call abort
46
  if (kind (cut(4_"")) /= kind(4_"")) call abort
47
 
48
  if (len (cut("")) /= 0 .or. cut("") /= "") call abort
49
  if (len (cut("1")) /= 0 .or. cut("") /= "") call abort
50
  if (len (cut("12")) /= 0 .or. cut("") /= "") call abort
51
  if (len (cut("123")) /= 0 .or. cut("") /= "") call abort
52
  if (len (cut("1234")) /= 1 .or. cut("4") /= "") call abort
53
  if (len (cut("12345")) /= 2 .or. cut("45") /= "") call abort
54
 
55
  if (len (cut(4_"")) /= 0 .or. cut(4_"") /= 4_"") call abort
56
  if (len (cut(4_"1")) /= 0 .or. cut(4_"") /= 4_"") call abort
57
  if (len (cut(4_"12")) /= 0 .or. cut(4_"") /= 4_"") call abort
58
  if (len (cut(4_"123")) /= 0 .or. cut(4_"") /= 4_"") call abort
59
  if (len (cut(4_"1234")) /= 1 .or. cut(4_"4") /= 4_"") call abort
60
  if (len (cut(4_"12345")) /= 2 .or. cut(4_"45") /= 4_"") call abort
61
 
62
end program test
63
 
64
! { dg-final { cleanup-modules "mod" } }

powered by: WebSVN 2.1.0

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