gcc/testsuite/gfortran.dg/widechar_intrinsics_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fmax-errors=100000" }
   3
   4   character(kind=1,len=20) :: s1, t1, u1, v1
   5   character(kind=4,len=20) :: s4, t4, u4, v4
   6
   7   call date_and_time(date=s1)
   8   call date_and_time(time=s1)
   9   call date_and_time(zone=s1)
  10   call date_and_time(s1, t1, u1)
  11
  12   call date_and_time(date=s4) ! { dg-error "must be of kind 1" }
  13   call date_and_time(time=s4) ! { dg-error "must be of kind 1" }
  14   call date_and_time(zone=s4) ! { dg-error "must be of kind 1" }
  15   call date_and_time(s4, t4, u4) ! { dg-error "must be of kind 1" }
  16
  17   call get_command(s1)
  18   call get_command(s4) ! { dg-error "Type of argument" }
  19
  20   call get_command_argument(1, s1)
  21   call get_command_argument(1, s4) ! { dg-error "Type of argument" }
  22
  23   call get_environment_variable("PATH", s1)
  24   call get_environment_variable(s1)
  25   call get_environment_variable(s1, t1)
  26   call get_environment_variable(4_"PATH", s1) ! { dg-error "Type of argument" }
  27   call get_environment_variable(s4) ! { dg-error "Type of argument" }
  28   call get_environment_variable(s1, t4) ! { dg-error "Type of argument" }
  29   call get_environment_variable(s4, t1) ! { dg-error "Type of argument" }
  30
  31   print *, lge(s1,t1)
  32   print *, lge(s1,"foo")
  33   print *, lge("foo",t1)
  34   print *, lge("bar","foo")
  35
  36   print *, lge(s1,t4) ! { dg-error "must be of kind 1" }
  37   print *, lge(s1,4_"foo") ! { dg-error "must be of kind 1" }
  38   print *, lge("foo",t4) ! { dg-error "must be of kind 1" }
  39   print *, lge("bar",4_"foo") ! { dg-error "must be of kind 1" }
  40
  41   print *, lge(s4,t1) ! { dg-error "must be of kind 1" }
  42   print *, lge(s4,"foo") ! { dg-error "must be of kind 1" }
  43   print *, lge(4_"foo",t1) ! { dg-error "must be of kind 1" }
  44   print *, lge(4_"bar","foo") ! { dg-error "must be of kind 1" }
  45
  46   print *, lge(s4,t4) ! { dg-error "must be of kind 1" }
  47   print *, lge(s4,4_"foo") ! { dg-error "must be of kind 1" }
  48   print *, lge(4_"foo",t4) ! { dg-error "must be of kind 1" }
  49   print *, lge(4_"bar",4_"foo") ! { dg-error "must be of kind 1" }
  50
  51   print *, lgt(s1,t1)
  52   print *, lgt(s1,"foo")
  53   print *, lgt("foo",t1)
  54   print *, lgt("bar","foo")
  55
  56   print *, lgt(s1,t4) ! { dg-error "must be of kind 1" }
  57   print *, lgt(s1,4_"foo") ! { dg-error "must be of kind 1" }
  58   print *, lgt("foo",t4) ! { dg-error "must be of kind 1" }
  59   print *, lgt("bar",4_"foo") ! { dg-error "must be of kind 1" }
  60
  61   print *, lgt(s4,t1) ! { dg-error "must be of kind 1" }
  62   print *, lgt(s4,"foo") ! { dg-error "must be of kind 1" }
  63   print *, lgt(4_"foo",t1) ! { dg-error "must be of kind 1" }
  64   print *, lgt(4_"bar","foo") ! { dg-error "must be of kind 1" }
  65
  66   print *, lgt(s4,t4) ! { dg-error "must be of kind 1" }
  67   print *, lgt(s4,4_"foo") ! { dg-error "must be of kind 1" }
  68   print *, lgt(4_"foo",t4) ! { dg-error "must be of kind 1" }
  69   print *, lgt(4_"bar",4_"foo") ! { dg-error "must be of kind 1" }
  70
  71   print *, lle(s1,t1)
  72   print *, lle(s1,"foo")
  73   print *, lle("foo",t1)
  74   print *, lle("bar","foo")
  75
  76   print *, lle(s1,t4) ! { dg-error "must be of kind 1" }
  77   print *, lle(s1,4_"foo") ! { dg-error "must be of kind 1" }
  78   print *, lle("foo",t4) ! { dg-error "must be of kind 1" }
  79   print *, lle("bar",4_"foo") ! { dg-error "must be of kind 1" }
  80
  81   print *, lle(s4,t1) ! { dg-error "must be of kind 1" }
  82   print *, lle(s4,"foo") ! { dg-error "must be of kind 1" }
  83   print *, lle(4_"foo",t1) ! { dg-error "must be of kind 1" }
  84   print *, lle(4_"bar","foo") ! { dg-error "must be of kind 1" }
  85
  86   print *, lle(s4,t4) ! { dg-error "must be of kind 1" }
  87   print *, lle(s4,4_"foo") ! { dg-error "must be of kind 1" }
  88   print *, lle(4_"foo",t4) ! { dg-error "must be of kind 1" }
  89   print *, lle(4_"bar",4_"foo") ! { dg-error "must be of kind 1" }
  90
  91   print *, llt(s1,t1)
  92   print *, llt(s1,"foo")
  93   print *, llt("foo",t1)
  94   print *, llt("bar","foo")
  95
  96   print *, llt(s1,t4) ! { dg-error "must be of kind 1" }
  97   print *, llt(s1,4_"foo") ! { dg-error "must be of kind 1" }
  98   print *, llt("foo",t4) ! { dg-error "must be of kind 1" }
  99   print *, llt("bar",4_"foo") ! { dg-error "must be of kind 1" }
 100
 101   print *, llt(s4,t1) ! { dg-error "must be of kind 1" }
 102   print *, llt(s4,"foo") ! { dg-error "must be of kind 1" }
 103   print *, llt(4_"foo",t1) ! { dg-error "must be of kind 1" }
 104   print *, llt(4_"bar","foo") ! { dg-error "must be of kind 1" }
 105
 106   print *, llt(s4,t4) ! { dg-error "must be of kind 1" }
 107   print *, llt(s4,4_"foo") ! { dg-error "must be of kind 1" }
 108   print *, llt(4_"foo",t4) ! { dg-error "must be of kind 1" }
 109   print *, llt(4_"bar",4_"foo") ! { dg-error "must be of kind 1" }
 110
 111   print *, selected_char_kind("foo")
 112   print *, selected_char_kind(4_"foo") ! { dg-error "must be of kind 1" }
 113   print *, selected_char_kind(s1)
 114   print *, selected_char_kind(s4) ! { dg-error "must be of kind 1" }
 115
 116   end