1! { dg-do run } 2! test namelist with scalars and arrays. 3! Based on example provided by thomas.koenig@online.de 4 5program sechs_w 6 implicit none 7 8 integer, parameter :: dr=selected_real_kind(15) 9 10 integer, parameter :: nkmax=6 11 real (kind=dr) :: rb(nkmax) 12 integer :: z 13 14 real (kind=dr) :: dg 15 real (kind=dr) :: a 16 real (kind=dr) :: da 17 real (kind=dr) :: delta 18 real (kind=dr) :: s,t 19 integer :: nk 20 real (kind=dr) alpha0 21 22 real (kind=dr) :: phi, phi0, rad, rex, zk, z0, drdphi, dzdphi 23 24 namelist /schnecke/ z, dg, a, t, delta, s, nk, rb, alpha0 25 26 open (10,status="scratch") 27 write (10, *) "&SCHNECKE" 28 write (10, *) " z=1," 29 write (10, *) " dg=58.4," 30 write (10, *) " a=48.," 31 write (10, *) " delta=0.4," 32 write (10, *) " s=0.4," 33 write (10, *) " nk=6," 34 write (10, *) " rb=60, 0, 40," 35 write (10, *) " alpha0=20.," 36 write (10, *) "/" 37 38 rewind (10) 39 read (10,schnecke) 40 close (10) 41 if ((z /= 1) .or. (dg /= 58.4_dr) .or. (a /= 48.0_dr) .or. & 42 (delta /= 0.4_dr).or. (s /= 0.4_dr) .or. (nk /= 6) .or. & 43 (rb(1) /= 60._dr).or. (rb(2) /= 0.0_dr).or. (rb(3) /=40.0_dr).or. & 44 (alpha0 /= 20.0_dr)) call abort () 45end program sechs_w 46