9 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse -pedantic %s 2>&1 | FileCheck %s2!Test rewrite of "PRINT namelistname" into "WRITE(*,NML=namelistname)"3!CHECK: nonstandard: namelist in PRINT statement4namelist /nml/x5x = 123.6!CHECK: WRITE (*, NML=nml)7print nml8end9