diff options
Diffstat (limited to 'libgfortran/generated/norm2_r8.c')
-rw-r--r-- | libgfortran/generated/norm2_r8.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libgfortran/generated/norm2_r8.c b/libgfortran/generated/norm2_r8.c index 7b2a5ae..60e707f 100644 --- a/libgfortran/generated/norm2_r8.c +++ b/libgfortran/generated/norm2_r8.c @@ -54,6 +54,10 @@ norm2_r8 (gfc_array_r8 * const restrict retarray, index_type dim; int continue_loop; +#ifdef HAVE_BACK_ARG + assert(back == 0); +#endif + /* Make dim zero based to avoid confusion. */ rank = GFC_DESCRIPTOR_RANK (array) - 1; dim = (*pdim) - 1; |