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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! PR fortran/46794
 
! Check that results of powers of integers with kinds 1 and 2 are
! correctly converted back; this used to ICE because a conversion
! from kind 4 to the correct one was missing.
 
! Contributed by Daniel Kraft, d@domob.eu.
 
PROGRAM main
  IMPLICIT NONE
 
  INTEGER(KIND=1) :: k1
  INTEGER(KIND=2) :: k2
 
  k1 = 1_1
  k2 = 1_2
 
  k1 = 1_1 + 1_1**k1
  k2 = 1_2 + 1_2**k2
 
  k2 = 1_1 + 1_1**k2
  k2 = 1_1 + 1_2**k1
  k2 = 1_1 + 1_2**k2
END PROGRAM main

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! PR fortran/46794`
3
4			`! Check that results of powers of integers with kinds 1 and 2 are`
5			`! correctly converted back; this used to ICE because a conversion`
6			`! from kind 4 to the correct one was missing.`
7
8			`! Contributed by Daniel Kraft, d@domob.eu.`
9
10			`PROGRAM main`
11			`IMPLICIT NONE`
12
13			`INTEGER(KIND=1) :: k1`
14			`INTEGER(KIND=2) :: k2`
15
16			`k1 = 1_1`
17			`k2 = 1_2`
18
19			`k1 = 1_1 + 1_1**k1`
20			`k2 = 1_2 + 1_2**k2`
21
22			`k2 = 1_1 + 1_1**k2`
23			`k2 = 1_1 + 1_2**k1`
24			`k2 = 1_1 + 1_2**k2`
25			`END PROGRAM main`

Browse

Tools

Subversion Repositories openrisc

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