10 lines
168 B
Fortran
10 lines
168 B
Fortran
! RUN: %f18 -funparse %s 2>&1 | FileCheck %s
|
|
! CHECK: CALL foo("N","N")
|
|
#ifdef transpose
|
|
call foo('T',
|
|
#else
|
|
call foo('N',
|
|
#endif
|
|
$ 'N')
|
|
end
|