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 117