An interesting difference between compilers

Help
3

Dear @sblionel,

please see the results attached.

The bad case works as if the ubound(arr_in)is evaluated first and only then the lower boundary of arr_in is set to 0.

Best regards,

Andrii

good

           0          10          11
           1           4           4
           0          10          11
           0          10          11
           0          10          11
           1           4           4
           0          10          11
           0          10          11
           0          10          11
           1           4           4
           0          10          11
           0          10          11
 X--                  1           1          11           4          11
   2.00000000       1002.00000       2002.00000       3002.00000       4002.00000       5002.00000       6002.00000       7002.00000       8002.00000       9002.00000       10002.0000       3.00000000       1003.00000       2003.00000       3003.00000       4003.00000       5003.00000       6003.00000       7003.00000       8003.00000       9003.00000       10003.0000       4.00000000       1004.00000       2004.00000       3004.00000       4004.00000       5004.00000       6004.00000       7004.00000       8004.00000       9004.00000       10004.0000       5.00000000       1005.00000       2005.00000       3005.00000       4005.00000       5005.00000       6005.00000       7005.00000       8005.00000       9005.00000       10005.0000    
 arr_out1--           1           1          11           4          11
   2.00000000       1002.00000       2002.00000       3002.00000       4002.00000       5002.00000       6002.00000       7002.00000       8002.00000       9002.00000       10002.0000       3.00000000       1003.00000       2003.00000       3003.00000       4003.00000       5003.00000       6003.00000       7003.00000       8003.00000       9003.00000       10003.0000       4.00000000       1004.00000       2004.00000       3004.00000       4004.00000       5004.00000       6004.00000       7004.00000       8004.00000       9004.00000       10004.0000       5.00000000       1005.00000       2005.00000       3005.00000       4005.00000       5005.00000       6005.00000       7005.00000       8005.00000       9005.00000       10005.0000    
 arr_out2--           1           1          11           4          11
   2.00000000       1002.00000       2002.00000       3002.00000       4002.00000       5002.00000       6002.00000       7002.00000       8002.00000       9002.00000       10002.0000       3.00000000       1003.00000       2003.00000       3003.00000       4003.00000       5003.00000       6003.00000       7003.00000       8003.00000       9003.00000       10003.0000       4.00000000       1004.00000       2004.00000       3004.00000       4004.00000       5004.00000       6004.00000       7004.00000       8004.00000       9004.00000       10004.0000       5.00000000       1005.00000       2005.00000       3005.00000       4005.00000       5005.00000       6005.00000       7005.00000       8005.00000       9005.00000       10005.0000    
 arr_out3--           1           1          11           4          11
   2.00000000       1002.00000       2002.00000       3002.00000       4002.00000       5002.00000       6002.00000       7002.00000       8002.00000       9002.00000       10002.0000       3.00000000       1003.00000       2003.00000       3003.00000       4003.00000       5003.00000       6003.00000       7003.00000       8003.00000       9003.00000       10003.0000       4.00000000       1004.00000       2004.00000       3004.00000       4004.00000       5004.00000       6004.00000       7004.00000       8004.00000       9004.00000       10004.0000       5.00000000       1005.00000       2005.00000       3005.00000       4005.00000       5005.00000       6005.00000       7005.00000       8005.00000       9005.00000       10005.0000

bad

            0           10           11
            1            4            4
            0           10           11
            0           10           11
            0           10           11
            1            4            4
            0           10           11
            0           10           11
            0           10           11
            1            4            4
            0           10           11
            0           10           11
 X--                   0            2           11            5           12
    2.000000        1002.000        2002.000        3002.000     
    4002.000        5002.000        6002.000        7002.000     
    8002.000        9002.000        10002.00        3.000000     
    1003.000        2003.000        3003.000        4003.000     
    5003.000        6003.000        7003.000        8003.000     
    9003.000        10003.00        4.000000        1004.000     
    2004.000        3004.000        4004.000        5004.000     
    6004.000        7004.000        8004.000        9004.000     
    10004.00        5.000000        1005.000        2005.000     
    3005.000        4005.000        5005.000        6005.000     
    7005.000        8005.000        9005.000        10005.00     
    0.000000        0.000000        0.000000        0.000000    
 arr_out1--            1            1           11            4           11
    2.000000        1002.000        2002.000        3002.000     
    4002.000        5002.000        6002.000        7002.000     
    8002.000        9002.000        10002.00        3.000000     
    1003.000        2003.000        3003.000        4003.000     
    5003.000        6003.000        7003.000        8003.000     
    9003.000        10003.00        4.000000        1004.000     
    2004.000        3004.000        4004.000        5004.000     
    6004.000        7004.000        8004.000        9004.000     
    10004.00        5.000000        1005.000        2005.000     
    3005.000        4005.000        5005.000        6005.000     
    7005.000        8005.000        9005.000        10005.00    
 arr_out2--            1            1           11            4           11
    2.000000        1002.000        2002.000        3002.000     
    4002.000        5002.000        6002.000        7002.000     
    8002.000        9002.000        10002.00        1003.000     
    2003.000        3003.000        4003.000        5003.000     
    6003.000        7003.000        8003.000        9003.000     
    10003.00        4.000000        2004.000        3004.000     
    4004.000        5004.000        6004.000        7004.000     
    8004.000        9004.000        10004.00        5.000000     
    1005.000        3005.000        4005.000        5005.000     
    6005.000        7005.000        8005.000        9005.000     
    10005.00        0.000000        0.000000        0.000000    
 arr_out3--            1            1           11            4           11
    2.000000        1002.000        2002.000        3002.000     
    4002.000        5002.000        6002.000        7002.000     
    8002.000        9002.000        10002.00        1003.000     
    2003.000        3003.000        4003.000        5003.000     
    6003.000        7003.000        8003.000        9003.000     
    10003.00        4.000000        2004.000        3004.000     
    4004.000        5004.000        6004.000        7004.000     
    8004.000        9004.000        10004.00        5.000000     
    1005.000        3005.000        4005.000        5005.000     
    6005.000        7005.000        8005.000        9005.000     
    10005.00        0.000000        0.000000        0.000000