https://gcc.gnu.org/g:40e2274ec0f62fbac076beeeb80239ce3b1b71fc
commit r16-7333-g40e2274ec0f62fbac076beeeb80239ce3b1b71fc Author: Josef Melcr <[email protected]> Date: Thu Feb 5 15:21:00 2026 +0100 testsuite: Add testcase for PR123986 This patch add a missing testcase cvise-reduced testcase for PR123986. PR tree-optimization/123986 gcc/testsuite/ChangeLog: * gfortran.dg/vect/pr123986.f90: New test. Signed-off-by: Josef Melcr <[email protected]> Diff: --- gcc/testsuite/gfortran.dg/vect/pr123986.f90 | 36 +++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) diff --git a/gcc/testsuite/gfortran.dg/vect/pr123986.f90 b/gcc/testsuite/gfortran.dg/vect/pr123986.f90 new file mode 100644 index 000000000000..1d0000ab9b8a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/vect/pr123986.f90 @@ -0,0 +1,36 @@ +! { dg-do compile } +! { dg-additional-options "-Ofast -mavx512f" { target avx512f } } + +MODULE bulk_cloud_model_mod + INTEGER, PARAMETER :: wp = KIND(1.0D0) + INTEGER, PARAMETER :: nzt = 1 + REAL, PARAMETER :: df_crit = 100.0E-6 + TYPE cloud_coefficients + REAL(wp) a + REAL(wp) b + END TYPE + TYPE cloud_species_def + TYPE(cloud_coefficients) cloud + TYPE(cloud_coefficients) graupel + END TYPE + TYPE(cloud_species_def) cloud_species +CONTAINS + SUBROUTINE riming_graupel_cloud + REAL(wp) dc + REAL(wp) dg + REAL(wp) xc + REAL(wp) xg + DO k = 1, nzt + dg = mean_diameter( cloud_species%graupel, xg ) + dc = mean_diameter( cloud_species%cloud, xc ) + IF ( dc > dc_crit .AND. dg > df_crit ) THEN + riming_rate_n = nc_c ( rime_graupel_cloud_delta_n_aa * dg**2 + dg * dc * dc**2 ) + ENDIF + ENDDO + END + FUNCTION mean_diameter( specie, particle_mean_mass ) + CLASS(cloud_coefficients) specie + REAL(wp) particle_mean_mass + mean_diameter = specie%a * particle_mean_mass**specie%b + END +END
