gcc/testsuite/gfortran.dg/widechar_6.f90

   1 ! { 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("") /= "") STOP 1
  32   if (len (cut1("1")) /= 0 .or. cut1("") /= "") STOP 2
  33   if (len (cut1("12")) /= 0 .or. cut1("") /= "") STOP 3
  34   if (len (cut1("123")) /= 0 .or. cut1("") /= "") STOP 4
  35   if (len (cut1("1234")) /= 1 .or. cut1("4") /= "") STOP 5
  36   if (len (cut1("12345")) /= 2 .or. cut1("45") /= "") STOP 6
  37
  38   if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7
  39   if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8
  40   if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9
  41   if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10
  42   if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11
  43   if (len (cut4(4_"12345")) /= 2 .or. cut4(4_"45") /= 4_"") STOP 12
  44
  45   if (kind (cut("")) /= kind("")) STOP 13
  46   if (kind (cut(4_"")) /= kind(4_"")) STOP 14
  47
  48   if (len (cut("")) /= 0 .or. cut("") /= "") STOP 15
  49   if (len (cut("1")) /= 0 .or. cut("") /= "") STOP 16
  50   if (len (cut("12")) /= 0 .or. cut("") /= "") STOP 17
  51   if (len (cut("123")) /= 0 .or. cut("") /= "") STOP 18
  52   if (len (cut("1234")) /= 1 .or. cut("4") /= "") STOP 19
  53   if (len (cut("12345")) /= 2 .or. cut("45") /= "") STOP 20
  54
  55   if (len (cut(4_"")) /= 0 .or. cut(4_"") /= 4_"") STOP 21
  56   if (len (cut(4_"1")) /= 0 .or. cut(4_"") /= 4_"") STOP 22
  57   if (len (cut(4_"12")) /= 0 .or. cut(4_"") /= 4_"") STOP 23
  58   if (len (cut(4_"123")) /= 0 .or. cut(4_"") /= 4_"") STOP 24
  59   if (len (cut(4_"1234")) /= 1 .or. cut(4_"4") /= 4_"") STOP 25
  60   if (len (cut(4_"12345")) /= 2 .or. cut(4_"45") /= 4_"") STOP 26
  61
  62 end program test