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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [emptyif.f90] - Blame information for rev 832

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


! Program to test empty IF statements
program emptyif
   implicit none
   logical c
   logical d
 
   if (c) then
      c = .true.
   end if
 
   if (c) then
   else
      c = .true.
   end if
 
   if (c) then
      c = .true.
   else
   end if
 
   if (c) then
      c = .true.
   elseif (d) then
      c = .true.
   else
   end if
 
   if (c) then
      c = .true.
   elseif (d) then
   else
      c = .true.
   end if
 
   if (c) then
   elseif (d) then
      c = .true.
   else
      c = .true.
   end if
 
end program

Line No.	Rev	Author	Line
1	149	jeremybenn	`! Program to test empty IF statements`
2			`program emptyif`
3			`implicit none`
4			`logical c`
5			`logical d`
6
7			`if (c) then`
8			`c = .true.`
9			`end if`
10
11			`if (c) then`
12			`else`
13			`c = .true.`
14			`end if`
15
16			`if (c) then`
17			`c = .true.`
18			`else`
19			`end if`
20
21			`if (c) then`
22			`c = .true.`
23			`elseif (d) then`
24			`c = .true.`
25			`else`
26			`end if`
27
28			`if (c) then`
29			`c = .true.`
30			`elseif (d) then`
31			`else`
32			`c = .true.`
33			`end if`
34
35			`if (c) then`
36			`elseif (d) then`
37			`c = .true.`
38			`else`
39			`c = .true.`
40			`end if`
41
42			`end program`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [emptyif.f90] - Blame information for rev 832