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