Harald Klimach avatar Harald Klimach committed c5a2069 Merge

Merged in bugfix in vector module

Comments (0)

Files changed (2)

source/aot_vector_module.f90

         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len

Binary file modified.

Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.