| ! RUN: %S/test_folding.sh %s %t %f18 | |
| ! Ensure that lower bounds are accounted for in intrinsic folding; | |
| ! this is a regression test for a bug in which they were not | |
| real, parameter :: a(-1:-1) = 1. | |
| real, parameter :: b(-1:-1) = log(a) | |
| logical, parameter :: test = lbound(a,1)==-1 .and. lbound(b,1)==-1 .and. & | |
| lbound(log(a),1)==1 .and. all(b==0) | |
| end |