Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr61454.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } implicit none integer, parameter :: arr(2) = [ 1, 3 ] real, parameter :: arr2(2) = [ 1.5, 2.1 ] integer, parameter :: j = int(sum(arr)) integer, parameter :: k = ceiling(sum(arr2)) real(kind=j) :: x1 real(kind=k) :: x2 print *, j, k print *, x1, x2 end