From 704a024df48dedc5d69ab585081bbb54fa5c46cd Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 11 Aug 2022 16:37:23 +0200 Subject: [PATCH] Fix C99-style declaration of loop variable --- lapack-netlib/SRC/iparam2stage.c | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lapack-netlib/SRC/iparam2stage.c b/lapack-netlib/SRC/iparam2stage.c index 1b6c4c8b8..7ba938dcd 100644 --- a/lapack-netlib/SRC/iparam2stage.c +++ b/lapack-netlib/SRC/iparam2stage.c @@ -717,11 +717,12 @@ integer iparam2stage_(integer *ispec, char *name__, char *opts, integer *ni, ret_val = -1; // s_copy(subnam, name__, (ftnlen)12, name_len); -strncpy(subnam,name__,13); -subnam[13]='\0'; -for (int i=0;i<13;i++) subnam[i]=toupper(subnam[i]); - //fprintf(stderr,"iparam2stage, name__ gelesen #%s#\n",name__); -//fprintf(stderr,"iparam2stage, subnam gelesen #%s#\n",subnam); + strncpy(subnam,name__,13); + subnam[13]='\0'; + { + int i; + for (i=0;i<13;i++) subnam[i]=toupper(subnam[i]); + } #if 0