xref: /llvm-project/flang/test/Preprocessing/pp131.F90 (revision 0e811d3b66ff85c13629d80c483c5d706eb4d15f)
1! RUN: %flang -E %s 2>&1 | FileCheck %s
2! CHECK: n = "foobar" // "baz"
3! # stringizing works in FLM
4#define STR(x) # x
5#define MAC(a,b) STR(a ## b)
6program main
7  character(6) n
8  n = MAC(foo, bar) // STR( baz )
9end
10