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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr17472.f] - Blame information for rev 801

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


c { dg-do run }
c pr 17472
c test namelist handles arrays
c Based on example provided by thomas.koenig@online.de
 
       integer a(10), ctr
       data a / 1,2,3,4,5,6,7,8,9,10 /
       namelist /ints/ a
       do ctr = 1,10
         if (a(ctr).ne.ctr) call abort ()
       end do
       end

Line No.	Rev	Author	Line
1	694	jeremybenn	`c { dg-do run }`
2			`c pr 17472`
3			`c test namelist handles arrays`
4			`c Based on example provided by thomas.koenig@online.de`
5
6			`integer a(10), ctr`
7			`data a / 1,2,3,4,5,6,7,8,9,10 /`
8			`namelist /ints/ a`
9			`do ctr = 1,10`
10			`if (a(ctr).ne.ctr) call abort ()`
11			`end do`
12			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr17472.f] - Blame information for rev 801