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