1! { dg-do compile }
2! { dg-options "-fmax-errors=1000" }
3
4program failme
5
6  integer :: i, 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  print *, access (s1, t1)
13  print *, access (s1, t4) ! { dg-error "must be of kind" }
14  print *, access (s4, t1) ! { dg-error "must be of kind" }
15  print *, access (s4, t4) ! { dg-error "must be of kind" }
16
17  print *, chdir (s1)
18  print *, chdir (s4) ! { dg-error "must be of kind" }
19
20  print *, chmod (s1, t1)
21  print *, chmod (s1, t4) ! { dg-error "must be of kind" }
22  print *, chmod (s4, t1) ! { dg-error "must be of kind" }
23  print *, chmod (s4, t4) ! { dg-error "must be of kind" }
24
25  print *, fget (s1)
26  print *, fget (s4) ! { dg-error "must be of kind" }
27
28  print *, fgetc (i, s1)
29  print *, fgetc (i, s4) ! { dg-error "must be of kind" }
30
31  print *, fput (s1)
32  print *, fput (s4) ! { dg-error "must be of kind" }
33
34  print *, fputc (i, s1)
35  print *, fputc (i, s4) ! { dg-error "must be of kind" }
36
37  print *, getcwd (s1)
38  print *, getcwd (s4) ! { dg-error "Type of argument" }
39
40  print *, hostnm (s1)
41  print *, hostnm (s4) ! { dg-error "must be of kind" }
42
43  print *, link (s1, t1)
44  print *, link (s1, t4) ! { dg-error "must be of kind" }
45  print *, link (s4, t1) ! { dg-error "must be of kind" }
46  print *, link (s4, t4) ! { dg-error "must be of kind" }
47
48  print *, lstat (s1, array)
49  print *, lstat (s4, array) ! { dg-error "must be of kind" }
50  print *, stat (s1, array)
51  print *, stat (s4, array) ! { dg-error "must be of kind" }
52
53  print *, rename (s1, t1)
54  print *, rename (s1, t4) ! { dg-error "must be of kind" }
55  print *, rename (s4, t1) ! { dg-error "must be of kind" }
56  print *, rename (s4, t4) ! { dg-error "must be of kind" }
57
58  print *, symlnk (s1, t1)
59  print *, symlnk (s1, t4) ! { dg-error "must be of kind" }
60  print *, symlnk (s4, t1) ! { dg-error "must be of kind" }
61  print *, symlnk (s4, t4) ! { dg-error "must be of kind" }
62
63  print *, system (s1)
64  print *, system (s4) ! { dg-error "Type of argument" }
65
66  print *, unlink (s1)
67  print *, unlink (s4) ! { dg-error "must be of kind" }
68
69end program failme
70