examples/fortran90: do not call starpu_shutdown() when starpu_init() returns ENODEV

examples/fortran90/f90_example.f90

@@ -50,6 +50,9 @@ PROGRAM f90_example
 
   !Initialization of StarPU
   res = starpu_my_init_c()
+  IF (res == -19) THEN
+     STOP 77
+  END IF
   call starpu_get_version(starpu_maj,starpu_min,starpu_rev)
   WRITE(6,'(a,i4,a,i4,a,i4)')      "StarPU version: ", starpu_maj , "." , starpu_min , "." , starpu_rev
   cpus = starpu_cpu_worker_get_count()

examples/fortran90/marshalling.c

@@ -162,9 +162,5 @@ int starpu_my_init_c()
 
 	ret = starpu_init(&conf);
 	/*     int ret = starpu_init(NULL); */
-	if (ret == -ENODEV) goto enodev;
-
 	return ret;
-enodev:
-	return 77;
 }