gcc/testsuite/gfortran.dg/compiler-directive_2.f

   1 ! { dg-do compile { target { { i?86-*-* x86_64-*-* } && ia32 } } }
   2 !
   3 ! PR fortran/34112
   4 !
   5 ! Check for calling convention consitency
   6 ! in procedure-pointer assignments.
   7 !
   8       subroutine test() ! { dg-error "fastcall and stdcall attributes are not compatible" }
   9 cGCC$ attributes stdcall, fastcall::test
  10       end subroutine test