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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! PR17286
3
! Namelist read failed when spaces exist between the '=' and the numbers
4
! This is a libgfortran bug
5
! Derived from testcase provided by Paul Thomas 
6
       program bug3
7
       integer num1 , num2 , num3 , num4
8
       data num3  / 42 /
9
       data num4  / 56 /
10
       namelist /mynml1/ num1,num2
11
       namelist /mynml2/ num3,num4
12
       logical dbg
13
       data dbg / .FALSE. /
14
       open(unit=10,status='SCRATCH')
15
       write(10,'(A)') "&mynml1,num1= 16,num2=32,&end"
16
!
17
! write mynml2
18
!
19
       write(10,mynml2)
20
       rewind(10)
21
!
22
! now read back
23
!
24
       num1 = -1
25
       num2 = -1
26
       read(10,mynml1)
27
       if (num1.eq.16.and.num2.eq.32) then
28
          if (dbg) write(*,mynml1)
29
       else
30
          if (dbg) print *, 'expected 16 32 got ',num1,num2
31
          call abort
32
       endif
33
       num3 = -1
34
       num4 = -1
35
       read(10,mynml2)
36
       if (num3.eq.42.and.num4.eq.56) then
37
          if (dbg) write(*,mynml2)
38
       else
39
          if (dbg) print *, 'expected 42 56 got ',num3,num4
40
          call abort
41
       endif
42
 
43
       close(10)
44
       end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.