[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression secnds

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:0d8c1cf1c1f803bb6798df302ae502fbb2f49cfd

commit 0d8c1cf1c1f803bb6798df302ae502fbb2f49cfd
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri May 2 11:23:02 2025 +0200

    Correction régression secnds

Diff:
---
 libgfortran/intrinsics/date_and_time.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libgfortran/intrinsics/date_and_time.c 
b/libgfortran/intrinsics/date_and_time.c
index f8e2e236801d..119122c84a45 100644
--- a/libgfortran/intrinsics/date_and_time.c
+++ b/libgfortran/intrinsics/date_and_time.c
@@ -316,10 +316,10 @@ secnds (GFC_REAL_4 *x)
   gfc_array_i4 *avalues = xmalloc (sizeof (gfc_array_i4)
                                   + sizeof (descriptor_dimension));
   avalues->base_addr = &values[0];
-  GFC_DESCRIPTOR_DTYPE (avalues).type = BT_REAL;
+  GFC_DESCRIPTOR_DTYPE (avalues).type = BT_INTEGER;
   GFC_DESCRIPTOR_DTYPE (avalues).elem_len = 4;
   GFC_DESCRIPTOR_DTYPE (avalues).rank = 1;
-  GFC_DESCRIPTOR_DIMENSION_SET(avalues, 0, 0, 7, 1);
+  GFC_DESCRIPTOR_DIMENSION_SET(avalues, 0, 0, 7, 4);
 
   date_and_time (NULL, NULL, NULL, avalues, 0, 0, 0);