10 lines
168 B
FortranFixed
10 lines
168 B
FortranFixed
|
! 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
|