1! { dg-do compile } 2! { dg-options "-std=f2003" } 3! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> 4 5integer :: istat 6character(25) :: msg 7real, dimension(10) :: a, b 8namelist /mynml/ a, b 9msg = "null" 10a = 43.21 11WRITE(99,'(10f8.3)',decimal="comma") a 12rewind(99) 13read(99,'(dc,10f8.3)',blank=msg) b 14write(99,'(dp,10f8.3)',round="up") 15rewind(99) 16read(99,'(10f8.3)',pad="yes") 17msg="suppress" 18write(99,'(10f8.3)',sign=msg) 19write(99,delim="apostrophe", fmt=*) 20write(99,nml=mynml,delim="none") 21end 22