1! { dg-do compile }
2! { dg-options "-fmax-errors=100 -Wall" }
3!
4! PR fortran/48972
5!
6!
7! All string arguments to I/O statements shall
8! be of default-character type. (Except for the
9! internal unit.)
10!
11
12character(len=30, kind=4) :: str1
13integer :: i
14
15OPEN(99, access=4_'direct')     ! { dg-error "must be a character string of default kind" }
16OPEN(99, action=4_'read')       ! { dg-error "must be a character string of default kind" }
17OPEN(99, asynchronous=4_'no')   ! { dg-error "must be a character string of default kind" })
18OPEN(99, blank=4_'null')        ! { dg-error "must be a character string of default kind" }
19OPEN(99, decimal=4_'comma')     ! { dg-error "must be a character string of default kind" }
20OPEN(99, delim=4_'quote')       ! { dg-error "must be a character string of default kind" }
21OPEN(99, encoding=4_'default')  ! { dg-error "must be a character string of default kind" }
22OPEN(99, file=4_'Test.dat')     ! { dg-error "must be a character string of default kind" }
23OPEN(99, form=4_'formatted')    ! { dg-error "must be a character string of default kind" }
24OPEN(99, pad=4_'yes')           ! { dg-error "must be a character string of default kind" }
25OPEN(99, position=4_'asis')     ! { dg-error "must be a character string of default kind" }
26OPEN(99, round=4_'down')        ! { dg-error "must be a character string of default kind" }
27OPEN(99, sign=4_'plus')         ! { dg-error "must be a character string of default kind" }
28OPEN(99, status=4_'old')        ! { dg-error "must be a character string of default kind" }
29OPEN(99, IOSTAT=i, iomsg=str1)  ! { dg-error "must be a character string of default kind" }
30
31close(99, iostat=i, iomsg=str1) ! { dg-error "must be a character string of default kind" }
32close(99, status=4_'delete')    ! { dg-error "must be a character string of default kind" }
33
34write(99, '(a)', advance=4_'no')! { dg-error "must be a character string of default kind" }
35read (99, *, blank=4_'null')    ! { dg-error "must be a character string of default kind" }
36write(99, *, decimal=4_'comma') ! { dg-error "must be a character string of default kind" }
37write(99, *, delim=4_'quote')   ! { dg-error "must be a character string of default kind" }
38read (99, *, pad=4_'yes')       ! { dg-error "must be a character string of default kind" }
39write(99, *, round=4_'down')    ! { dg-error "must be a character string of default kind" }
40write(99, *, sign=4_'plus')     ! { dg-error "must be a character string of default kind" }
41
42wait(99, iostat=i, iomsg=str1)  ! { dg-error "must be a character string of default kind" }
43
44endfile  (99, iostat=i, iomsg=str1)  ! { dg-error "must be a character string of default kind" }
45backspace(99, iostat=i, iomsg=str1)  ! { dg-error "must be a character string of default kind" }
46rewind   (99, iostat=i, iomsg=str1)  ! { dg-error "must be a character string of default kind" }
47flush    (99, iostat=i, iomsg=str1)  ! { dg-error "must be a character string of default kind" }
48
49inquire (file=str1)               ! { dg-error "must be a character string of default kind" }
50inquire (99,access=str1)          ! { dg-error "must be a character string of default kind" }
51inquire (99,action=str1)          ! { dg-error "must be a character string of default kind" }
52inquire (99,asynchronous=str1)    ! { dg-error "must be a character string of default kind" }
53inquire (99,blank=str1)           ! { dg-error "must be a character string of default kind" }
54inquire (99,decimal=str1)         ! { dg-error "must be a character string of default kind" }
55inquire (99,delim=str1)           ! { dg-error "must be a character string of default kind" }
56inquire (99,direct=str1)          ! { dg-error "must be a character string of default kind" }
57inquire (99,encoding=str1)        ! { dg-error "must be a character string of default kind" }
58inquire (99,form=str1)            ! { dg-error "must be a character string of default kind" }
59inquire (99,formatted=str1)       ! { dg-error "must be a character string of default kind" }
60inquire (99,iomsg=str1, iostat=i) ! { dg-error "must be a character string of default kind" }
61inquire (99,name=str1)            ! { dg-error "must be a character string of default kind" }
62inquire (99,pad=str1)             ! { dg-error "must be a character string of default kind" }
63inquire (99,position=str1)        ! { dg-error "must be a character string of default kind" }
64inquire (99,read=str1)            ! { dg-error "must be a character string of default kind" }
65inquire (99,readwrite=str1)       ! { dg-error "must be a character string of default kind" }
66inquire (99,round=str1)           ! { dg-error "must be a character string of default kind" }
67inquire (99,sequential=str1)      ! { dg-error "must be a character string of default kind" }
68inquire (99,sign=str1)            ! { dg-error "must be a character string of default kind" }
69!inquire (99,stream=str1)  ! Fails due to PR 48976
70inquire (99,unformatted=str1)     ! { dg-error "must be a character string of default kind" }
71inquire (99,write=str1)           ! { dg-error "must be a character string of default kind" }
72end
73