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