Provide statement for every case.

hfp · Dec 4, 2024 · e4b8bcc · e4b8bcc
1 parent 9f0bd72
commit e4b8bcc
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/base/machine.F b/src/base/machine.F
@@ -292,14 +292,19 @@ PURE FUNCTION m_cpuid_vlen(cpuid, typesize)
 
          SELECT CASE (isa)
          CASE (MACHINE_X86_SSE4)
+            m_cpuid_vlen = 16/nbytes
          CASE (MACHINE_ARM_ARCH64) ! NEON
+            m_cpuid_vlen = 16/nbytes
          CASE (MACHINE_ARM_SVE128)
             m_cpuid_vlen = 16/nbytes
          CASE (MACHINE_X86_AVX)
+            m_cpuid_vlen = 32/nbytes
          CASE (MACHINE_X86_AVX2)
+            m_cpuid_vlen = 32/nbytes
          CASE (MACHINE_ARM_SVE256)
             m_cpuid_vlen = 32/nbytes
          CASE (MACHINE_X86_AVX512)
+            m_cpuid_vlen = 64/nbytes
          CASE (MACHINE_ARM_SVE512)
             m_cpuid_vlen = 64/nbytes
          CASE DEFAULT ! unknown or generic