1! { dg-do compile } 2! { dg-options "-fmax-errors=1000" } 3 4program failme 5 6 integer :: i, j, array(20) 7 integer(kind=4) :: i4 8 integer(kind=8) :: i8 9 character(kind=1,len=20) :: s1, t1 10 character(kind=4,len=20) :: s4, t4 11 12 call ctime (i8, s1) 13 call ctime (i8, s4) ! { dg-error "must be of kind" } 14 15 call chdir (s1) 16 call chdir (s1, i) 17 call chdir (s4) ! { dg-error "must be of kind" } 18 call chdir (s4, i) ! { dg-error "must be of kind" } 19 20 call chmod (s1, t1) 21 call chmod (s1, t4) ! { dg-error "must be of kind" } 22 call chmod (s4, t1) ! { dg-error "must be of kind" } 23 call chmod (s4, t4) ! { dg-error "must be of kind" } 24 call chmod (s1, t1, i) 25 call chmod (s1, t4, i) ! { dg-error "must be of kind" } 26 call chmod (s4, t1, i) ! { dg-error "must be of kind" } 27 call chmod (s4, t4, i) ! { dg-error "must be of kind" } 28 29 call fdate (s1) 30 call fdate (s4) ! { dg-error "must be of kind" } 31 32 call gerror (s1) 33 call gerror (s4) ! { dg-error "must be of kind" } 34 35 call getcwd (s1) 36 call getcwd (s1, i) 37 call getcwd (s4) ! { dg-error "must be of kind" } 38 call getcwd (s4, i) ! { dg-error "must be of kind" } 39 40 call getenv (s1, t1) 41 call getenv (s1, t4) ! { dg-error "Type of argument" } 42 call getenv (s4, t1) ! { dg-error "Type of argument" } 43 call getenv (s4, t4) ! { dg-error "Type of argument" } 44 45 call getarg (i, s1) 46 call getarg (i, s4) ! { dg-error "must be of kind" } 47 48 call getlog (s1) 49 call getlog (s4) ! { dg-error "must be of kind" } 50 51 call fgetc (j, s1) 52 call fgetc (j, s1, i) 53 call fgetc (j, s4) ! { dg-error "must be of kind" } 54 call fgetc (j, s4, i) ! { dg-error "must be of kind" } 55 56 call fget (s1) 57 call fget (s1, i) 58 call fget (s4) ! { dg-error "must be of kind" } 59 call fget (s4, i) ! { dg-error "must be of kind" } 60 61 call fputc (j, s1) 62 call fputc (j, s1, i) 63 call fputc (j, s4) ! { dg-error "must be of kind" } 64 call fputc (j, s4, i) ! { dg-error "must be of kind" } 65 66 call fput (s1) 67 call fput (s1, i) 68 call fput (s4) ! { dg-error "must be of kind" } 69 call fput (s4, i) ! { dg-error "must be of kind" } 70 71 call hostnm (s1) 72 call hostnm (s1, i) 73 call hostnm (s4) ! { dg-error "must be of kind" } 74 call hostnm (s4, i) ! { dg-error "must be of kind" } 75 76 call link (s1, t1) 77 call link (s1, t4) ! { dg-error "must be of kind" } 78 call link (s4, t1) ! { dg-error "must be of kind" } 79 call link (s4, t4) ! { dg-error "must be of kind" } 80 call link (s1, t1, i) 81 call link (s1, t4, i) ! { dg-error "must be of kind" } 82 call link (s4, t1, i) ! { dg-error "must be of kind" } 83 call link (s4, t4, i) ! { dg-error "must be of kind" } 84 85 call perror (s1) 86 call perror (s4) ! { dg-error "must be of kind" } 87 88 call rename (s1, t1) 89 call rename (s1, t4) ! { dg-error "must be of kind" } 90 call rename (s4, t1) ! { dg-error "must be of kind" } 91 call rename (s4, t4) ! { dg-error "must be of kind" } 92 call rename (s1, t1, i) 93 call rename (s1, t4, i) ! { dg-error "must be of kind" } 94 call rename (s4, t1, i) ! { dg-error "must be of kind" } 95 call rename (s4, t4, i) ! { dg-error "must be of kind" } 96 97 call lstat (s1, array) 98 call lstat (s1, array, i) 99 call lstat (s4, array) ! { dg-error "must be of kind" } 100 call lstat (s4, array, i) ! { dg-error "must be of kind" } 101 102 call stat (s1, array) 103 call stat (s1, array, i) 104 call stat (s4, array) ! { dg-error "must be of kind" } 105 call stat (s4, array, i) ! { dg-error "must be of kind" } 106 107 call symlnk (s1, t1) 108 call symlnk (s1, t4) ! { dg-error "must be of kind" } 109 call symlnk (s4, t1) ! { dg-error "must be of kind" } 110 call symlnk (s4, t4) ! { dg-error "must be of kind" } 111 call symlnk (s1, t1, i) 112 call symlnk (s1, t4, i) ! { dg-error "must be of kind" } 113 call symlnk (s4, t1, i) ! { dg-error "must be of kind" } 114 call symlnk (s4, t4, i) ! { dg-error "must be of kind" } 115 116 call system (s1) 117 call system (s1, i) 118 call system (s4) ! { dg-error "Type of argument" } 119 call system (s4, i) ! { dg-error "Type of argument" } 120 121 call ttynam (i, s1) 122 call ttynam (i, s4) ! { dg-error "must be of kind" } 123 124 call unlink (s1) 125 call unlink (s1, i) 126 call unlink (s4) ! { dg-error "must be of kind" } 127 call unlink (s4, i) ! { dg-error "must be of kind" } 128 129end program failme 130