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
|
