Remove check for Android in Mips.cpp (#123793)
[llvm-project.git] / flang / test / Semantics / rewrite02.f90
blob2393498e65d2919d534b3dd830bd7bcf4554ace5
1 !RUN: %flang_fc1 -fdebug-unparse -pedantic %s 2>&1 | FileCheck %s
2 !Test rewrite of "PRINT namelistname" into "WRITE(*,NML=namelistname)"
3 !CHECK: nonstandard: namelist in PRINT statement
4 namelist /nml/x
5 x = 123.
6 !CHECK: WRITE (*, NML=nml)
7 print nml
8 end