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