1! { dg-do compile } 2! { dg-options "-std=f95" } 3 4! PR40008 F2008: Add NEWUNIT= for OPEN statement 5! Check for rejection with pre-F2008 standard. 6 7! Contributed by Daniel Kraft, d@domob.eu. 8 9program main 10 character(len=25) :: str 11 integer(1) :: myunit 12 13 open (newunit=myunit, file="some_file") ! { dg-error "Fortran 2008" } 14 close (unit=myunit) 15end program main 16