gcc/testsuite/gfortran.dg/pr93365.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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