1*9edcf7a2SLeandro Lupori! RUN: %flang_fc1 -E -fopenacc %s 2>&1 | FileCheck %s 2297230acSPeter Klausler!CHECK: subroutine r4(x) Z real :: x Z !$acc routine Z print *, x Z end 3297230acSPeter Klausler#define SUB(s, t) subroutine s(x) Z\ 4297230acSPeter Klausler t :: x Z\ 5297230acSPeter Klausler !$acc routine Z\ 6297230acSPeter Klausler print *, x Z\ 7297230acSPeter Klausler end subroutine s 8297230acSPeter KlauslerSUB(r4, real) 9