URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_73.f90] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
!
! PR fortran/50109
!
! Contributed by Jim Hanson
!
      program namelist_test
 
      integer nfp
      namelist /indata/ nfp
 
      nfp = 99
      open(unit=4, status='scratch')
      write(4,'(a)') '$indata'
      write(4,'(a)') 'NFP = 5,'
      write(4,'(a)') "!  "
      write(4,'(a)') "! "
      write(4,'(a)') "!  "
      write(4,'(a)') '/'
 
      rewind(4)
      read (4,nml=indata)
      close(4)
 
!      write(*,*) nfp
      if (nfp /= 5) call abort()
 
      end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR fortran/50109`
4			`!`
5			`! Contributed by Jim Hanson`
6			`!`
7			`program namelist_test`
8
9			`integer nfp`
10			`namelist /indata/ nfp`
11
12			`nfp = 99`
13			`open(unit=4, status='scratch')`
14			`write(4,'(a)') '$indata'`
15			`write(4,'(a)') 'NFP = 5,'`
16			`write(4,'(a)') "! "`
17			`write(4,'(a)') "! "`
18			`write(4,'(a)') "! "`
19			`write(4,'(a)') '/'`
20
21			`rewind(4)`
22			`read (4,nml=indata)`
23			`close(4)`
24
25			`! write(,) nfp`
26			`if (nfp /= 5) call abort()`
27
28			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_73.f90] - Blame information for rev 774