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