Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr66725.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! PR fortran/66725 ! program foo open(unit=1,access = 999) ! { dg-error "ACCESS requires" } open(unit=1,action = 999) ! { dg-error "ACTION requires" } open(unit=1,asynchronous = 999) ! { dg-error "ASYNCHRONOUS requires" } open(unit=1,blank = 999) ! { dg-error "BLANK requires" } open(unit=1,decimal = 999) ! { dg-error "DECIMAL requires" } open(unit=1,delim = 999) ! { dg-error "DELIM requires" } open(unit=1,encoding = 999) ! { dg-error "ENCODING requires" } open(unit=1,form = 999) ! { dg-error "FORM requires" } open(unit=1,pad = 999) ! { dg-error "PAD requires" } open(unit=1,position = 999) ! { dg-error "POSITION requires" } open(unit=1,round = 999) ! { dg-error "ROUND requires" } open(unit=1,sign = 999) ! { dg-error "SIGN requires" } open(unit=1,status = 999) ! { dg-error "STATUS requires" } close(unit=1, status=999) ! { dg-error "STATUS requires" } write (unit=1, asynchronous=257) ! { dg-error "ASYNCHRONOUS requires" } write (unit=1, delim=257) ! { dg-error "DELIM requires" } write (unit=1, decimal=257) ! { dg-error "DECIMAL requires" } write (unit=1, round=257) ! { dg-error "ROUND requires" } write (unit=1, sign=257) ! { dg-error "SIGN requires" } write (unit=1, blank=257) ! { dg-error "BLANK requires" } write (unit=1, pad=257) ! { dg-error "PAD requires" } end program foo