17 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2! Ensure that optional arguments aren't used to fold SIZE() or SHAPE()3module m4 contains5 subroutine sub(x,y)6 real :: x(:), y(:)7 optional x8 !CHECK: PRINT *, int(size(y,dim=1,kind=8),kind=4)9 print *, size(f(x,y))10 end11 elemental function f(x,y)12 real, intent(in) :: x, y13 optional x14 f = y15 end16end17