1! { dg-do compile } 2! PR fortran/66725 3! 4program foo 5 6 open(unit=1,access = 999) ! { dg-error "ACCESS requires" } 7 open(unit=1,action = 999) ! { dg-error "ACTION requires" } 8 open(unit=1,asynchronous = 999) ! { dg-error "ASYNCHRONOUS requires" } 9 open(unit=1,blank = 999) ! { dg-error "BLANK requires" } 10 open(unit=1,decimal = 999) ! { dg-error "DECIMAL requires" } 11 open(unit=1,delim = 999) ! { dg-error "DELIM requires" } 12 open(unit=1,encoding = 999) ! { dg-error "ENCODING requires" } 13 open(unit=1,form = 999) ! { dg-error "FORM requires" } 14 open(unit=1,pad = 999) ! { dg-error "PAD requires" } 15 open(unit=1,position = 999) ! { dg-error "POSITION requires" } 16 open(unit=1,round = 999) ! { dg-error "ROUND requires" } 17 open(unit=1,sign = 999) ! { dg-error "SIGN requires" } 18 open(unit=1,status = 999) ! { dg-error "STATUS requires" } 19 20 close(unit=1, status=999) ! { dg-error "STATUS requires" } 21 22 write (unit=1, asynchronous=257) ! { dg-error "ASYNCHRONOUS requires" } 23 write (unit=1, delim=257) ! { dg-error "DELIM requires" } 24 write (unit=1, decimal=257) ! { dg-error "DECIMAL requires" } 25 write (unit=1, round=257) ! { dg-error "ROUND requires" } 26 write (unit=1, sign=257) ! { dg-error "SIGN requires" } 27 28 write (unit=1, blank=257) ! { dg-error "BLANK requires" } 29 write (unit=1, pad=257) ! { dg-error "PAD requires" } 30 31end program foo 32