1242723Sjhibbits! { dg-do run } 2242723Sjhibbits! PR 62768 3242723Sjhibbits! Filenames with embedded NULL characters are truncated, make sure 4242723Sjhibbits! inquire reports the correct truncated name. 5242723Sjhibbitsprogram filename_null 6242723Sjhibbits implicit none 7242723Sjhibbits character(len=15), parameter :: s = "hello" // achar(0) // "world", & 8242723Sjhibbits s2 = "hello" 9242723Sjhibbits character(len=15) :: r 10242723Sjhibbits logical :: l 11242723Sjhibbits open(10, file=s) 12242723Sjhibbits inquire(unit=10, name=r) 13242723Sjhibbits if (r /= s2) call abort() 14242723Sjhibbits inquire(file=s2, exist=l) 15242723Sjhibbits if (.not. l) call abort() 16242723Sjhibbits close(10, status="delete") 17242723Sjhibbitsend program filename_null 18242723Sjhibbits