anchor.diff:      CALL GETARG(5, argv)
       READ(argv, "(I32)") i
     ELSE
  -    i = 2048 ! 2 GByte
  -  END IF
  -  s = LSHIFT(INT8(MAX(i, 0)), 20) / ((m * k + k * n) * T)
  +    i = 2 ! 2 GByte for A and B (and C, but this currently not used by the F90 test)
  +  END IF
  +  s = LSHIFT(INT8(MAX(i, 0)), 30) / ((m * k + k * n + m * n) * T)
   
     ALLOCATE(a(s,m,k))
     ALLOCATE(b(s,k,n))
  
positive.code:     CALL init(24, b(i,:,:), i - 1)
    END DO
    c(:,:) = 0
  
    CALL GETENV("CHECK", argv)
    READ(argv, "(I32)") check
  
negative.code:       !$OMP END MASTER
        !$OMP DO
        DO i = LBOUND(a, 1), UBOUND(a, 1)
          CALL xmm(C_LOC(a(i,:,:)), C_LOC(b(i,:,:)), C_LOC(tmp))
        END DO
        !$OMP MASTER
        !$ duration = duration + omp_get_wtime()
  