Test segfaulting with brms

Author: andrjohns

.github/workflows/R-CMD-check.yaml

@@ -106,6 +106,16 @@ jobs:
         run: rcmdcheck::rcmdcheck(args = c("--no-manual", "--as-cran"), error_on = "warning", check_dir = "check")
         shell: Rscript {0}
 
+      - name: Check brms segfault
+        env:
+        run: |
+          install.packages("brms")
+          library(brms)
+          library(cmdstanr)
+          fit <- cmdstan_example("schools", force_recompile = TRUE)
+          fit$init_model_methods(verbose = TRUE)
+        shell: Rscript {0}
+
       - name: Show testthat output
         if: always()
         run: find check -name 'testthat.Rout*' -exec cat '{}' \; || true

inst/include/model_methods.cpp

@@ -1,3 +1,6 @@
+#ifndef STAN_THREADS
+#define STAN_THREADS
+#endif
 #include <stan/model/model_base.hpp>
 #include <stan/model/log_prob_grad.hpp>
 #include <stan/model/log_prob_propto.hpp>