summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr18392.f90
blob: de156f5a5fdfa0f12274700f083dc3afdb478908 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
! { dg-do run }
! pr 18392
! test namelist with derived types
! Based on example provided by thomas.koenig@online.de

program pr18392
  implicit none
  type foo
     integer a
     real b
  end type foo
  type(foo) :: a
  namelist /nl/ a
  open (10, status="scratch")
  write (10,*) " &NL"
  write (10,*) " A%A = 10,"
  write (10,*) "/"
  rewind (10)
  read (10,nl)
  close (10)
  IF (a%a /= 10.0) call abort ()
end program pr18392