Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr93365.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | |
children |
line wrap: on
line source
! { dg-do run } program p logical, parameter :: a(0) = .true. real, parameter :: b(0) = 0 complex, parameter :: c(0) = 0 integer :: d data d /a%kind/ data e /b%kind/ data f /c%kind/ if (d .ne. kind(a)) stop 1 if (e .ne. kind(b)) stop 2 if (f .ne. kind(c)) stop 3 end