OSDN Git Service

2010-12-04 Daniel Kraft <d@domob.eu>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / power2.f90
1 ! { 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 + 1_1**k1
17   k2 = 1_2 + 1_2**k2
18
19   k2 = 1_1 + 1_1**k2
20   k2 = 1_1 + 1_2**k1
21   k2 = 1_1 + 1_2**k2
22 END PROGRAM main