Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-std=f2003" }

! Test case prepared by Jerry DeLisle  

integer :: istat

character(25) :: msg

real, dimension(10) :: a, b

namelist /mynml/ a, b

msg = "null"

a = 43.21

WRITE(99,'(10f8.3)',decimal="comma") a

rewind(99)

read(99,'(dc,10f8.3)',blank=msg) b

write(99,'(dp,10f8.3)',round="up")

rewind(99)

read(99,'(10f8.3)',pad="yes")

msg="suppress"

write(99,'(10f8.3)',sign=msg)

write(99,delim="apostrophe", fmt=*)

write(99,nml=mynml,delim="none")

end