flang/test/Parser/issue-146362.1.f90 - llvm-project - Git at Google

 ! RUN: %flang_fc1 -fsyntax-only -cpp %s 2>&1
 #define UNITY(k) 1_ ## k
 PROGRAM REPRODUCER
 WRITE(*,*) UNITY(4)
 END PROGRAM REPRODUCER
	! RUN: %flang_fc1 -fsyntax-only -cpp %s 2>&1
	#define UNITY(k) 1_ ## k
	PROGRAM REPRODUCER
	WRITE(,) UNITY(4)
	END PROGRAM REPRODUCER