Fortran: Fix PR 47485.

[gcc.git] / gcc / testsuite / g++.dg / warn / Wpragma-once-outside-header.C

// { dg-do assemble  }
// { dg-options "-Werror=pragma-once-outside-header" }
// { dg-message "some warnings being treated as errors" "" {target "*-*-*"} 0 }

#pragma once  // { dg-error "'#pragma once' in main file" }
int main() {}