2 ! { dg-options "-fmax-errors=1000" }
6 integer :: i, j, array(20)
9 character(kind=1,len=20) :: s1, t1
10 character(kind=4,len=20) :: s4, t4
13 call ctime (i8, s4) ! { dg-error "must be of kind" }
17 call chdir (s4) ! { dg-error "must be of kind" }
18 call chdir (s4, i) ! { dg-error "must be of kind" }
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" }
30 call fdate (s4) ! { dg-error "must be of kind" }
33 call gerror (s4) ! { dg-error "must be of kind" }
37 call getcwd (s4) ! { dg-error "must be of kind" }
38 call getcwd (s4, i) ! { dg-error "must be of kind" }
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" }
46 call getarg (i, s4) ! { dg-error "must be of kind" }
49 call getlog (s4) ! { dg-error "must be of kind" }
53 call fgetc (j, s4) ! { dg-error "must be of kind" }
54 call fgetc (j, s4, i) ! { dg-error "must be of kind" }
58 call fget (s4) ! { dg-error "must be of kind" }
59 call fget (s4, i) ! { dg-error "must be of kind" }
63 call fputc (j, s4) ! { dg-error "must be of kind" }
64 call fputc (j, s4, i) ! { dg-error "must be of kind" }
68 call fput (s4) ! { dg-error "must be of kind" }
69 call fput (s4, i) ! { dg-error "must be of kind" }
73 call hostnm (s4) ! { dg-error "must be of kind" }
74 call hostnm (s4, i) ! { dg-error "must be of kind" }
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" }
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" }
86 call perror (s4) ! { dg-error "must be of kind" }
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" }
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" }
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" }
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" }
118 call system (s4) ! { dg-error "Type of argument" }
119 call system (s4, i) ! { dg-error "Type of argument" }
122 call ttynam (i, s4) ! { dg-error "must be of kind" }
126 call unlink (s4) ! { dg-error "must be of kind" }
127 call unlink (s4, i) ! { dg-error "must be of kind" }