gcc/testsuite/gfortran.dg/compiler-directive_2.f - gcc - Git at Google

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