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 10PROGRAM 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 25END PROGRAM main 26