| ! { 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 |