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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [flush_1.f90] - Blame information for rev 853

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


! { dg-do run }
! PR 22390 Implement flush statement
program flush_1
 
   character(len=256) msg
   integer ios
 
   open (unit=10, access='SEQUENTIAL', status='SCRATCH')
 
   write (10, *) 42
   flush 10
 
   write (10, *) 42
   flush(10)
 
   write (10, *) 42
   flush(unit=10, iostat=ios)
   if (ios /= 0) call abort
 
   write (10, *) 42
   flush (unit=10, err=20)
   goto 30
20 call abort
30 continue
 
   call flush(10)
 
end program flush_1

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! PR 22390 Implement flush statement`
3			`program flush_1`
4
5			`character(len=256) msg`
6			`integer ios`
7
8			`open (unit=10, access='SEQUENTIAL', status='SCRATCH')`
9
10			`write (10, *) 42`
11			`flush 10`
12
13			`write (10, *) 42`
14			`flush(10)`
15
16			`write (10, *) 42`
17			`flush(unit=10, iostat=ios)`
18			`if (ios /= 0) call abort`
19
20			`write (10, *) 42`
21			`flush (unit=10, err=20)`
22			`goto 30`
23			`20 call abort`
24			`30 continue`
25
26			`call flush(10)`
27
28			`end program flush_1`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [flush_1.f90] - Blame information for rev 853