2 ! { dg-options "-fdec" }
3 ! { dg-shouldfail "ACTION conflicts with READONLY" }
5 ! Test that we get a run-time error for opening a READONLY file with
12 character(*), parameter :: f
= "dec_io_5.txt"
13 character(10), volatile :: c
16 open(unit
=fd
,file
=f
,action
=c
,readonly)
19 ! { dg-output "ACTION conflicts with READONLY" }