summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/power2.f90
blob: 5e2cf0440fc9eccde944f18b92fbec51ce08349c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
! { 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